diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2list')
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2list | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tlpdb2list b/Master/tlpkg/bin/tlpdb2list index be28b8d2124..0859fe2e652 100755 --- a/Master/tlpkg/bin/tlpdb2list +++ b/Master/tlpkg/bin/tlpdb2list @@ -18,23 +18,20 @@ use TeXLive::TLPOBJ; use TeXLive::TLPDB; use Getopt::Long; use Pod::Usage; +use TeXLive::TLUtils; use File::Path; my $opt_outputdir = "new-list"; -my $opt_debug = 0; my $help = 0; +TeXLive::TLUtils::process_logging_options(); + GetOptions("outputdir=s" => \$opt_outputdir, - "debug!", "help|?" => \$help) or pod2usage(1); + "help|?" => \$help) or pod2usage(1); 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: $!"; } @@ -64,7 +61,7 @@ C<./new-list>. =back -The standard options C<-help> and C<-debug> are also accepted. +The standard options C<-help>, C<-q>, and C<-v> are also accepted. See the tlpfiles documentation for details. =head1 DESCRIPTION |