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