From 5dc224e1615426c46c049f66102c4386320b08d9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 11 Nov 2017 07:54:13 +0000 Subject: debug json timing: print mode and format time git-svn-id: svn://tug.org/texlive/trunk@45749 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 4 +--- Master/tlpkg/TeXLive/TLUtils.pm | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index e74eff61c44..9437dff913f 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1496,9 +1496,7 @@ sub action_info { $endsec -= 1; $endmsec += 1000000; } - print STDERR "start $startsec $startmsec\n"; - print STDERR "end $endsec $endmsec\n"; - print STDERR "duration ", $endsec - $startsec, ":", $endmsec - $startmsec, "\n"; + print STDERR "JSON (", $TeXLive::TLUtils::jsonmode, ") generation took ", $endsec - $startsec, ".", substr($endmsec - $startmsec,0,2), " sec\n"; } return ($ret); } diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 0b533475ce8..0ea884a0515 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -4185,7 +4185,7 @@ my $TLFalse = \$TLFalseValue; bless $TLTrue, 'TLBOOLEAN'; bless $TLFalse, 'TLBOOLEAN'; -my $jsonmode = ""; +our $jsonmode = ""; =item C =item C -- cgit v1.2.3