summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-14 07:53:53 +0000
committerNorbert Preining <preining@logic.at>2008-10-14 07:53:53 +0000
commit135596c90390dc4f2ecd9928e83847ad18e53675 (patch)
tree3fd1e9cf588fd04fe2cec29a9fb3ca59c6c83032
parentf84fb1fcc64547fc22f9827658ffbf66f85d459a (diff)
fix tlmgr so that arguments and options processing in two action_ subs is
done in the right order git-svn-id: svn://tug.org/texlive/trunk@10975 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index e111d4de845..c7781fb134e 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1339,11 +1339,11 @@ sub action_arch {
if ($opt_gui) {
action_gui("arch");
}
- my $what = shift @ARGV;
my %ret;
my $opt_dry = 0;
Getopt::Long::Configure(qw(no_pass_through));
GetOptions("dry-run" => \$opt_dry) or pod2usage(2);
+ my $what = shift @ARGV;
init_local_db(1);
$what || ($what = "list");
if ($what =~ m/^list$/i) {
@@ -1418,11 +1418,11 @@ sub action_arch {
}
sub action_generate {
- my $what = shift @ARGV;
my $localconf = "";
my $dest = "";
Getopt::Long::Configure(qw(no_pass_through));
GetOptions("localcfg=s" => \$localconf, "dest=s" => \$dest,) or pod2usage(2);
+ my $what = shift @ARGV;
init_local_db();
my $TEXMFSYSVAR = kpsewhich("TEXMFSYSVAR");