diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 921cf70463c..7dd33fd6d0d 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1412,7 +1412,7 @@ sub action_info { my $ret = $F_OK | $F_NOPOSTACTION; my @datafields; my $fmt = "list"; - if ($opts{'data'} eq "json") { + if ($opts{'data'} && ($opts{'data'} eq "json")) { eval { require JSON; }; if ($@) { # that didn't work out, give some usefull error message and stop @@ -1461,8 +1461,12 @@ Goodbye. } # we are still here, so $what is defined and neither collection nor scheme, # so assume the arguments are package names - if ($opts{'data'} ne "json") { - $fmt = ($opts{'data'} ? "csv" : "detail"); + if ($opts{'data'}) { + if ($opts{'data'} ne "json") { + $fmt = "csv"; + } + } else { + $fmt = "detail"; } my @adds; if ($opts{'data'}) { |