texlive[46750] Master/tlpkg/TeXLive/TLPDB.pm: fix uninitialized

[commits+preining at tug.org]

Revision: 46750
          http://tug.org/svn/texlive?view=revision&revision=46750
Author:   preining
Date:     2018-02-27 02:10:30 +0100 (Tue, 27 Feb 2018)
Log Message:
-----------
fix uninitialized warning in debug statement

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-02-27 00:36:39 UTC (rev 46749)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-02-27 01:10:30 UTC (rev 46750)
@@ -2054,7 +2054,9 @@
         $target .= "/$TeXLive::TLConfig::RelocTree";
       }
     }
-    debug("tlpdb:_install_data: what=$what, target=$target, size=$whatsize, checksum=$whatcheck, tmpdir=$tempdir\n");
+    my $ww = ($whatsize || "<unset>");
+    my $ss = ($whatcheck || "<unset>");
+    debug("tlpdb:_install_data: what=$what, target=$target, size=$ww, checksum=$ss, tmpdir=$tempdir\n");
     my ($ret, $pkg) = TeXLive::TLUtils::unpack($what, $target, 'size' => $whatsize, 'checksum' => $whatcheck, 'tmpdir' => $tempdir);
     if (!$ret) {
       tlwarn("TLPDB::_install_package: $pkg\n");