texlive[44301] Master/tlpkg/TeXLive/TLPDB.pm: fix spurious warning on
commits+preining at tug.org
commits+preining at tug.org
Fri May 12 04:00:20 CEST 2017
Revision: 44301
http://tug.org/svn/texlive?view=revision&revision=44301
Author: preining
Date: 2017-05-12 04:00:19 +0200 (Fri, 12 May 2017)
Log Message:
-----------
fix spurious warning on updates
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLPDB.pm
Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm 2017-05-12 00:06:56 UTC (rev 44300)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm 2017-05-12 02:00:19 UTC (rev 44301)
@@ -1418,7 +1418,7 @@
}
my %tlpsizes;
my %tlpobjs;
- my $totalsize;
+ my $totalsize = 0;
foreach my $p (@exppacks) {
$tlpobjs{$p} = $self->get_package($p);
my $media = $self->media_of_package($p);
@@ -1438,10 +1438,10 @@
}
$totalsize += $tlpsizes{$p};
}
+ my %realtlpsizes;
if ($totalsize) {
- $tlpsizes{'__TOTAL__'} = $totalsize;
+ $realtlpsizes{'__TOTAL__'} = $totalsize;
}
- my %realtlpsizes;
if (!$with_deps) {
for my $p (@packs) {
$realtlpsizes{$p} = $tlpsizes{$p};
More information about the tex-live-commits
mailing list