summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-11-14 08:45:15 +0000
committerNorbert Preining <preining@logic.at>2017-11-14 08:45:15 +0000
commit06e737558e409a7cf2daacd88b2e6bbe3f4fdd76 (patch)
tree218043947afae52dafba1215859447e0a64c7bad /Master/texmf-dist/scripts
parent471d3a9f2891620433afd016d281adb38a84ae64 (diff)
tlmgr paper: use tlmgr in msgs, report file, break when --json is unsupported
git-svn-id: svn://tug.org/texlive/trunk@45794 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index b9ebe94dd6b..61f8ff5aec8 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -110,6 +110,8 @@ use TeXLive::TLPaper;
#
# set up $prg for warning messages
$prg = TeXLive::TLUtils::basename($0);
+# for usage in various Perl modules
+$::prg = $prg;
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");
@@ -1242,6 +1244,10 @@ sub action_paper {
} else { # tlmgr paper {a4|letter} => do it.
return ($F_ERROR) if !check_on_writable();
+ if ($opts{'json'}) {
+ tlwarn("$prg: option --json not supported with other arguments\n");
+ return ($F_ERROR);
+ }
my $ret = $F_OK;
for my $prog (sort keys %TeXLive::TLPaper::paper) {
my $pkg = $TeXLive::TLPaper::paper{$prog}{'pkg'};
@@ -1254,6 +1260,10 @@ sub action_paper {
}
} else { # program-specific paper
+ if ($opts{'json'}) {
+ tlwarn("$prg: option --json not supported with other arguments\n");
+ return ($F_ERROR);
+ }
my $prog = $action; # first argument is the program to change
my $pkg = $TeXLive::TLPaper::paper{$prog}{'pkg'};
if (!$pkg) {