summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpdb2list
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2list')
-rwxr-xr-xMaster/tlpkg/bin/tlpdb2list7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpdb2list b/Master/tlpkg/bin/tlpdb2list
index f2b74a37a1f..be28b8d2124 100755
--- a/Master/tlpkg/bin/tlpdb2list
+++ b/Master/tlpkg/bin/tlpdb2list
@@ -21,7 +21,7 @@ use Pod::Usage;
use File::Path;
my $opt_outputdir = "new-list";
-our $opt_debug = 0;
+my $opt_debug = 0;
my $help = 0;
GetOptions("outputdir=s" => \$opt_outputdir,
@@ -30,6 +30,11 @@ GetOptions("outputdir=s" => \$opt_outputdir,
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
pod2usage(1) if ($#ARGV<0);
+if ($opt_debug) {
+ $::LOGLEVELFILE = $::LOG_DDDEBUG;
+ $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
if (! -d $opt_outputdir) {
mkpath ($opt_outputdir) or die "cannot mkdir $opt_outputdir: $!";
}