diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 11 |
1 files changed, 7 insertions, 4 deletions
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) { |