summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-08-27 15:06:56 +0000
committerNorbert Preining <preining@logic.at>2009-08-27 15:06:56 +0000
commitd90a296d0cf73b92fb0e1396865232d8cefbd7da (patch)
tree7e513478d4e0f06e0f9f5d6f8d2e3a5aa05cea93 /Master
parentd2575925b6d7f9489ddb63a459443f44132978f3 (diff)
fix undefined values in machine_line
git-svn-id: svn://tug.org/texlive/trunk@14891 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index d2c33ce2f57..35791dbf557 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1549,7 +1549,9 @@ sub machine_line {
$lrev ||= "-";
$rrev ||= "-";
$flag ||= "?";
- my $str = "$pkg\t$flag\t$lrev\t$rrev\t" . join("\t", @args) . "\n";
+ my $str = "$pkg\t$flag\t$lrev\t$rrev\t";
+ $str .= join("\t", @args) if (@args);
+ $str .= "\n";
return($str) if $ret;
print $str;
}
@@ -1888,7 +1890,7 @@ sub action_update {
my $rev = $pkg->revision;
if ($opts{"list"}) {
if ($::machinereadable) {
- machine_line($p, $FLAG_REMOVE, $rev, "-", "-");
+ machine_line($p, $FLAG_REMOVE, $rev, "-", "-", "-");
} else {
info("$p: local: $rev, source: <absent> (auto-remove)\n");
}