summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2021-03-02 01:45:16 +0000
committerNorbert Preining <preining@logic.at>2021-03-02 01:45:16 +0000
commit39f3d319ee3d0dd2c7ee9fd41dbf07d6df982fef (patch)
tree377a109732d0b90a4323696fadc4bbb216576d8c /Master/tlpkg/TeXLive/TLUtils.pm
parent81a335c3ecf91a6d8dad96b2d74d2374177b5af3 (diff)
install/TLUtils: report hours
git-svn-id: svn://tug.org/texlive/trunk@58052 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 549600b082a..aa8202dca88 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1579,9 +1579,11 @@ sub install_packages {
$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;