debug => warn

git-svn-id: svn://tug.org/texlive/trunk@10653 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 16 insertions, 16 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
index 61a959e4278..178e1161525 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
@@ -8,7 +8,7 @@
 #
 # TODO:
 # - (more complicated) make this script be require-able from tlmgr.pl
-#   so that we don't have to do the $localtlpdb initialization 
+#   so that we don't have to do the $localtlpdb initialization
 #   twice, *and* can take advantage of the action_* routines.
 #   But OTOH then we will not have output into a windows, so I am not
 #   sure that this would be the best option.
@@ -168,7 +168,7 @@ if (defined($opt_lang)) {
     if ($foo) {
       $LANG = $foo;
     } else {
-      debug("Didn't get any useful code from reg_country: $foo...\n");
+      warn "Didn't get any useful code from reg_country: $foo...\n";
     }
   } else {
     # we load POSIX and locale stuff
@@ -286,7 +286,7 @@ my $tlmgrrev = `tlmgr --version`;
 chomp($tlmgrrev);
 our $about = $top->Button(-text => ___"about",
   -command => sub {
-    $mw->Dialog(-title => ___"about", 
+    $mw->Dialog(-title => ___"about",
       -text => "TeX Live Manager GUI
 $tlmgrrev
 Copyright 2008 Tomasz Luczak, Norbert Preining
@@ -294,7 +294,7 @@ License under the GNU General Public License version 2 or higher
 In case of problems, please contact: texlive\@tug.org",
       -buttons => [ ___"ok" ])->Show;
     });
-                                                 
+
 $about->pack(-side => 'right');
 $quit->pack(-side => 'right');
 
@@ -312,7 +312,7 @@ $balloon->attach(
   -balloonmsg => ___"changesrclong");
 
 $balloon->attach(
-  $top->Checkbutton(-text => ___"debug", 
+  $top->Checkbutton(-text => ___"debug",
                     -variable => \$debugmode)->pack(-side => 'left'),
   -balloonmsg => ___"debugballoon");
 
@@ -329,9 +329,9 @@ require ("do_listframe.pl");
 our $back_f1 = $back->add("install",-label => ___"install");
 $screens{"install"} = $back_f1;
 my $install_win = do_listframe($back_f1,
-             ___"addpkg", 
+             ___"addpkg",
              \@allpackages,
-             { install => { -text => ___"installsel", 
+             { install => { -text => ___"installsel",
                             -command => \&install_selected_packages}},
              0,1
             );
@@ -340,9 +340,9 @@ set_text_win($install_win, ___"warningtxt");
 our $back_up = $back->add("update", -label => ___"update");
 $screens{"update"} = $back_up;
 my $update_win = do_listframe($back_up,
-             ___"updatepkg", 
+             ___"updatepkg",
              \@updatepackages,
-             { updateall => { -text => ___"updateall", 
+             { updateall => { -text => ___"updateall",
                               -command => \&update_selected_packages,
                               -args => [ "--all" ]
                             },
@@ -378,8 +378,8 @@ if ($opt_load) {
 
 
 if (defined($opt_screen)) {
-  $back->raise("$opt_screen"); 
-} 
+  $back->raise("$opt_screen");
+}
 
 $splash->Destroy;
 $mw->deiconify;
@@ -429,7 +429,7 @@ sub run_program_show_output {
   my $td = $mw->Toplevel(-title => ___"tlmgr process");
   $td->transient($mw);
   $td->grab();
-  my $tf = $td->Scrolled("ROText", -width => 80, 
+  my $tf = $td->Scrolled("ROText", -width => 80,
                                    -height => 10,
                                    -wrap => "none",
                          -scrollbars => "ose"
@@ -589,7 +589,7 @@ sub create_update_list {
         } else {
           push @ret, $lp;
         }
-      } 
+      }
     }
     foreach my $p (@archret) {
       my $foundparent = 0;
@@ -650,7 +650,7 @@ sub menu_edit_location {
   my $entry = $sw->Entry(-text => $location, -width => 30);
   $entry->pack();
   my $f1 = $sw->Frame;
-  $f1->Button(-text => ___"choosedir", 
+  $f1->Button(-text => ___"choosedir",
     -command => sub {
                       my $var = $sw->chooseDirectory;
                       if (defined($var)) {
@@ -666,7 +666,7 @@ sub menu_edit_location {
   $f1->pack;
   my $f = $sw->Frame;
   my $okbutton = $f->Button(-text => ___"ok",
-    -command => sub { $location = $entry->get; 
+    -command => sub { $location = $entry->get;
                       run_update_functions();
                       $sw->destroy;
                     })->pack(-side => 'left', -padx => "2m", -pady => "2m");
@@ -684,7 +684,7 @@ sub run_update_functions {
 }
 
 sub check_location_on_ctan {
-  # we want to check that if mirror.ctan.org 
+  # we want to check that if mirror.ctan.org
   # is used that we select a mirror once
   if ($location =~ m/$TeXLive::TLConfig::TeXLiveServerURL/) {
     $location = TeXLive::TLUtils::give_ctan_mirror();