summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/create-package-list
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/create-package-list')
-rwxr-xr-xMaster/tlpkg/bin/create-package-list10
1 files changed, 8 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/create-package-list b/Master/tlpkg/bin/create-package-list
index a57d004e012..85c3716c2a2 100755
--- a/Master/tlpkg/bin/create-package-list
+++ b/Master/tlpkg/bin/create-package-list
@@ -16,16 +16,22 @@ BEGIN {
use strict;
use TeXLive::TLPDB;
-use TeXLive::TLUtils qw(dirname);
+use TeXLive::TLUtils qw(dirname tllog);
use Getopt::Long;
use Pod::Usage;
-our $opt_debug = 0;
+my $opt_debug = 0;
my $help = 0;
GetOptions("debug!", 'help|?' => \$help ) or pod2usage(1);
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+
+if ($opt_debug) {
+ $::LOGLEVELFILE = $::LOG_DDDEBUG;
+ $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
die "$0: missing tlpdb argument; try --help if you need it.\n" if ($#ARGV<0);
die "cannot read tlpdb file $ARGV[0]." if (! -r "$ARGV[0]");