texlive[45749] Master: debug json timing: print mode and format time

[commits+preining at tug.org]

Revision: 45749
          http://tug.org/svn/texlive?view=revision&revision=45749
Author:   preining
Date:     2017-11-11 08:54:13 +0100 (Sat, 11 Nov 2017)
Log Message:
-----------
debug json timing: print mode and format time

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-11-11 07:34:43 UTC (rev 45748)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-11-11 07:54:13 UTC (rev 45749)
@@ -1496,9 +1496,7 @@
       $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);
 }

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2017-11-11 07:34:43 UTC (rev 45748)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2017-11-11 07:54:13 UTC (rev 45749)
@@ -4185,7 +4185,7 @@
 bless $TLTrue, 'TLBOOLEAN';
 bless $TLFalse, 'TLBOOLEAN';
 
-my $jsonmode = "";
+our $jsonmode = "";
 
 =item C<True()>
 =item C<False()>