summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl10
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'}) {