texlive[58052] Master/tlpkg/TeXLive/TLUtils.pm: install/TLUtils:

[commits+preining at tug.org]

Revision: 58052
          http://tug.org/svn/texlive?view=revision&revision=58052
Author:   preining
Date:     2021-03-02 02:45:16 +0100 (Tue, 02 Mar 2021)
Log Message:
-----------
install/TLUtils: report hours

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-03-02 01:38:22 UTC (rev 58051)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-03-02 01:45:16 UTC (rev 58052)
@@ -1579,9 +1579,11 @@
     $donesize += $tlpsizes{$package};
   }
   my $totaltime = time() - $starttime;
-  my $totmin = int ($totaltime/60);
+  my $tothour = int ($totaltime/3600);
+  my $totmin = (int ($totaltime/60)) % 60;
   my $totsec = $totaltime % 60;
-  info(sprintf("Time used for installing the packages: %02d:%02d\n",
+  my $hrstr = ($tothour > 0 ? "$tothour:" : "");
+  info(sprintf("Time used for installing the packages: $hrstr%02d:%02d\n",
        $totmin, $totsec));
   $totlpdb->save;
   return 1;