From 8e85d1ab2ab6ba2ad123e83ac4e16a3d8153b1df Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 10 Jul 2008 10:35:35 +0000 Subject: tlmgr/tlmgrgui: forgot to commit the part of process_logging_options support for tlmgrgui, here it is. git-svn-id: svn://tug.org/texlive/trunk@9428 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'Master') diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index 4259fc8914f..511b6608313 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -136,7 +136,6 @@ sub ___ ($) { } my $opt_location; -my $opt_debug = 0; my $opt_netarchive; my $opt_diskarchive; my $opt_screen; @@ -145,6 +144,8 @@ our $opt_force = 0; our $opt_nodepends = 0; my $opt_lang; +TeXLive::TLUtils::process_logging_options(); + GetOptions("location=s" => \$opt_location, "netarchive=s" => \$NetArchive, "diskarchive=s" => \$DiskArchive, @@ -153,7 +154,7 @@ GetOptions("location=s" => \$opt_location, "load" => \$opt_load, "lang=s" => \$opt_lang, "no-depends" => \$opt_nodepends, - "debug!" => \$opt_debug) or die("Unsupported argument!"); + ) or die("Unsupported argument!"); if (defined($opt_lang)) { $LANG = $opt_lang; @@ -164,7 +165,7 @@ if (defined($opt_lang)) { if ($foo) { $LANG = $foo; } else { - debug("Didn't get any usuful code from reg_country: $foo...\n"); + debug("Didn't get any useful code from reg_country: $foo...\n"); } } else { # we load POSIX and locale stuff @@ -205,6 +206,7 @@ if (defined($LANG) && (-r "$Master/texmf/scripts/texlive/tlmgrgui/lang/$LANG")) our @update_function_list; our $debugmode = 0; +$debugmode = 1 if ($::opt_verbosity > 0); our $mw = MainWindow->new(-title => "tlmgr 2008"); $mw->withdraw; @@ -466,7 +468,8 @@ sub install_selected_packages { my @execlist; push @execlist, "tlmgr", "--location", "$location"; if ($debugmode) { - push @execlist, "-v"; + push @execlist, "-v" if ($::opt_verbosity > 0); + push @execlist, "-v" if ($::opt_verbosity > 1); } push @execlist, "install"; if ($opt_nodepends) { -- cgit v1.2.3