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