diff options
author | Norbert Preining <preining@logic.at> | 2008-10-14 07:53:53 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-10-14 07:53:53 +0000 |
commit | 135596c90390dc4f2ecd9928e83847ad18e53675 (patch) | |
tree | 3fd1e9cf588fd04fe2cec29a9fb3ca59c6c83032 /Master/texmf | |
parent | f84fb1fcc64547fc22f9827658ffbf66f85d459a (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
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 4 |
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"); |