From 135596c90390dc4f2ecd9928e83847ad18e53675 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 14 Oct 2008 07:53:53 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgr.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/texmf/scripts') 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"); -- cgit v1.2.3