From 36ae92d7b6e20612dd7996b70478556882916381 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 6 Nov 2007 17:39:58 +0000 Subject: first fix git-svn-id: svn://tug.org/texlive/trunk@5373 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpdb2zip | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/bin') diff --git a/Master/tlpkg/bin/tlpdb2zip b/Master/tlpkg/bin/tlpdb2zip index d74cabb5a97..e22921d9f01 100755 --- a/Master/tlpkg/bin/tlpdb2zip +++ b/Master/tlpkg/bin/tlpdb2zip @@ -27,7 +27,10 @@ our $opt_debug = 0; my $opt_outputdir = "./zip"; my $help = 0; -GetOptions("outputdir=s", "all!", "debug!", "help|?" => \$help) or pod2usage(1); +GetOptions("outputdir=s" => \$opt_outputdir, + "all!" => \$opt_all, + "debug!" => \$opt_debug, + "help|?" => \$help) or pod2usage(1); pod2usage(-exitstatus => 0, -verbose => 2) if $help; @@ -39,7 +42,7 @@ sub main chomp (my $Master = `cd $mydir/../.. && pwd`); # xx TLPDB should default my $tlpdb_path = "$Master/texlive.tlpdb"; my $tlpdb = TeXLive::TLPDB->new ("location" => $tlpdb_path); - + die("Cannot load tlpdb at $tlpdb_path!\n") unless defined($tlpdb); my @packs; if ($opt_all) { @packs = $tlpdb->list_packages; @@ -47,7 +50,6 @@ sub main @packs = @ARGV; } # get list of packages. - my %maps; for my $pkg (@packs) { my $obj = $tlpdb->get_package ($pkg); die "$0: no TeX Live package named $pkg in $tlpdb_path.\n" if ! $obj; -- cgit v1.2.3