summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlprm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlprm')
-rwxr-xr-xMaster/tlpkg/bin/tlprm9
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;
}