first fix

git-svn-id: svn://tug.org/texlive/trunk@5373 c570f23f-e606-0410-a88d-b1316a301751

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;