diff options
| author | Norbert Preining <preining@logic.at> | 2017-11-08 12:19:02 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2017-11-08 12:19:02 +0000 |
| commit | 29d19fd757a9b89df32203a7ed7e41f51f095f97 (patch) | |
| tree | 3e3230a6d87659256b4de403bbd8ab9258ecdaf5 /Master/texmf-dist | |
| parent | 75259425fbb27a511302dc7b9087697efb1544a2 (diff) | |
compress json to one line
git-svn-id: svn://tug.org/texlive/trunk@45719 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 831ae58ecb6..a9c1a7b0782 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1491,7 +1491,7 @@ Goodbye. if ($opts{'data'}) { @adds = @datafields; } - print "[\n" if ($fmt eq "json"); + print "[" if ($fmt eq "json"); my $first = 1; foreach my $ppp (@whattolist) { next if ($ppp =~ m/^00texlive\./); @@ -3638,7 +3638,7 @@ sub show_one_package_json { my $is_available = (defined($remtlp) ? 1 : 0); if (!($is_installed || $is_available)) { # output proper JSON for unavailable packages - print "{ \"name\":\"$p\", \"available\":false }\n"; + print "{ \"name\":\"$p\", \"available\":false }"; #tlwarn("$prg: package $p not found neither locally nor remote!\n"); #return($F_WARNING); return($F_OK); @@ -3652,7 +3652,7 @@ sub show_one_package_json { lrev => ($is_installed ? $loctlp->revision : 0), rrev => ($is_available ? $remtlp->revision : 0), revision => undef); - print $str, "\n"; + print $str; return($F_OK); } |