texlive[45775] Master/texmf-dist/scripts/texlive/tlmgr.pl: if only

[commits+preining at tug.org]

Revision: 45775
          http://tug.org/svn/texlive?view=revision&revision=45775
Author:   preining
Date:     2017-11-13 18:05:00 +0100 (Mon, 13 Nov 2017)
Log Message:
-----------
if only paper is given to tlmgr shell, respond like paper paper

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-11-13 14:46:04 UTC (rev 45774)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-11-13 17:05:00 UTC (rev 45775)
@@ -1196,6 +1196,12 @@
   $ENV{"TEXMFCONFIG"} = $texmfconfig;
 
   my $action = shift @ARGV;
+  if (!$action) {
+    # can only happen in shell mode, because otherwise we push paper onto the stack before
+    # going into the action_paper
+    $action = "paper";
+  }
+
   if ($action =~ m/^paper$/i) {  # generic paper
     my $newpaper = shift @ARGV;
     if ($opts{"list"}) {  # tlmgr paper --list => complain.