summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-06 17:39:58 +0000
committerNorbert Preining <preining@logic.at>2007-11-06 17:39:58 +0000
commit36ae92d7b6e20612dd7996b70478556882916381 (patch)
treef2f88127ec8b8339e72c129c845bfa50b1b5e002 /Master
parent26d620578b893be9c0b798460b1f1643b1a6a547 (diff)
first fix
git-svn-id: svn://tug.org/texlive/trunk@5373 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/tlpdb2zip8
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;