diff options
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 6 |
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"); } |