1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm
index 24c16ff624a..4f2bbab72ca 100755
--- a/Master/tlpkg/bin/tlprm
+++ b/Master/tlpkg/bin/tlprm
@@ -25,7 +25,7 @@ use Pod::Usage;
 use Getopt::Long;
 use Cwd 'abs_path';
 
-our $opt_debug = 0;
+my $opt_debug = 0;
 my $opt_svn = 1;
 my $help = 0;
 
@@ -34,6 +34,11 @@ GetOptions("svn!",
 
 pod2usage(-exitstatus => 0, -verbose => 2) if $help;
 
+if ($opt_debug) {
+  $::LOGLEVELFILE = $::LOG_DDDEBUG;
+  $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
 exit (&main ());
 
 
@@ -48,7 +53,7 @@ sub main
   foreach my $f (@ARGV) {
     my $obj = $tlpdb->get_package ($f);
     if (! $obj) {
-      warn "$0: no TeX Live package named $f.\n";
+      tllog($::LOG_NORMAL, "$0: no TeX Live package named $f.\n");
       $failure_count++;
       next;
     }