diff options
author | Norbert Preining <preining@logic.at> | 2007-11-06 17:39:58 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-11-06 17:39:58 +0000 |
commit | 36ae92d7b6e20612dd7996b70478556882916381 (patch) | |
tree | f2f88127ec8b8339e72c129c845bfa50b1b5e002 | |
parent | 26d620578b893be9c0b798460b1f1643b1a6a547 (diff) |
first fix
git-svn-id: svn://tug.org/texlive/trunk@5373 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2zip | 8 |
1 files changed, 5 insertions, 3 deletions
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; |