From 39f3d319ee3d0dd2c7ee9fd41dbf07d6df982fef Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 2 Mar 2021 01:45:16 +0000 Subject: install/TLUtils: report hours git-svn-id: svn://tug.org/texlive/trunk@58052 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive') 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; -- cgit v1.2.3