X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fextract_files;h=c129153c7b26674e409cb8df21e478de5e52bff7;hb=4cb36e543bb889e040b1c95b6d697582e28eeec2;hp=2d4dbdcd4ab64e1f90d0d0a052aa46f826760419;hpb=36df75060d34f006ad631acf2cf1830f256570d3;p=deb%2Fpackages.git

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 ) );