fix undefined values in machine_line

git-svn-id: svn://tug.org/texlive/trunk@14891 c570f23f-e606-0410-a88d-b1316a301751

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");
         }