diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2list')
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2list | 7 |
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: $!"; } |