summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;