summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-02-27 01:10:30 +0000
committerNorbert Preining <preining@logic.at>2018-02-27 01:10:30 +0000
commit04171e19f1ec02203684474b948e71b0d14333d6 (patch)
treee4a389ac302086b7646c3bfbc9141aa483006f4e /Master/tlpkg/TeXLive/TLPDB.pm
parentd0a63315e81ba8c3baedf4bce61bc0d913fd12ed (diff)
fix uninitialized warning in debug statement
git-svn-id: svn://tug.org/texlive/trunk@46750 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index d52e7081062..910d531fbaa 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -2054,7 +2054,9 @@ sub _install_data {
$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");