summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl11
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) {