From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Sun, 2 Sep 2007 12:27:39 +0000 (+0200)
Subject: Merge from CVS: Fix handling of version 0 and some Perl warnings
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=e8a26d279e317b51711d99ed6af1aafb1d0ceef2;p=deb%2Fpackages.git

Merge from CVS: Fix handling of version 0 and some Perl warnings

revision 1.17
date: 2007-07-26 11:58:34 +0200;  author: djpig;  state: Exp;  lines: +9 -1
Initialize %stats hash to avoid perl warnings
----------------------------
revision 1.16
date: 2007-07-23 17:59:14 +0200;  author: djpig;  state: Exp;  lines: +1 -1
The version number can be just 0, don't fall over that
---

diff --git a/bin/extract_files b/bin/extract_files
index 2d4dbdc..c129153 100755
--- a/bin/extract_files
+++ b/bin/extract_files
@@ -72,7 +72,15 @@ my %opthash = (
 	       'help' => \$help,
 	       );
 
-my (%src_packages, %bin_packages, %cache, %stats);
+my (%src_packages, %bin_packages, %cache);
+
+my %stats = (
+    src_pkgs => 0,
+    src_cache => 0,
+    already_extracted => 0,
+    bin_pkgs => 0,
+    bin_cache => 0,
+    );
 
 Getopt::Long::config('no_getopt_compat', 'no_auto_abbrev');
 
@@ -529,7 +537,7 @@ sub read_dsc {
 	dsc => $dscname,
     };
 
-    unless( $pkg_data->{src_name} && $pkg_data->{src_version}
+    unless( $pkg_data->{src_name} && defined($pkg_data->{src_version})
 	&& $pkg_data->{dsc} ) {
 	use Data::Dumper;
 	do_error( "something fishy happened.\n", Dumper( $pkg_data ) );