diff options
author | Norbert Preining <preining@logic.at> | 2017-11-11 07:54:13 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-11-11 07:54:13 +0000 |
commit | 5dc224e1615426c46c049f66102c4386320b08d9 (patch) | |
tree | 551718c2e8feb093cffceb75a6086805ca22736b /Master | |
parent | 4daaf989ebd5bda2420b2d635bc9ed2a46645b44 (diff) |
debug json timing: print mode and format time
git-svn-id: svn://tug.org/texlive/trunk@45749 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 4 | ||||
-rw-r--r-- | 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<True()> =item C<False()> |