summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-11-08 12:19:02 +0000
committerNorbert Preining <preining@logic.at>2017-11-08 12:19:02 +0000
commit29d19fd757a9b89df32203a7ed7e41f51f095f97 (patch)
tree3e3230a6d87659256b4de403bbd8ab9258ecdaf5 /Master
parent75259425fbb27a511302dc7b9087697efb1544a2 (diff)
compress json to one line
git-svn-id: svn://tug.org/texlive/trunk@45719 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl6
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);
}