X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Fextract_files;h=a94fba06bd87d5a3161fdde213935392cb6d086f;hp=5c57bab417108d227d82aefd7c10de83572e6d0e;hb=aad6264acf766c330147186c7b3a48f4683721db;hpb=e52c622cafc5a0dee6437f60147535a192b90c3e

diff --git a/bin/extract_files b/bin/extract_files
index 5c57bab..a94fba0 100755
--- a/bin/extract_files
+++ b/bin/extract_files
@@ -564,6 +564,10 @@ sub read_deb {
 	}
     }
     $cache{$debname} ||= qx/dpkg-deb --info "$debname" control/;
+    unless ( $cache{$debname} ) {
+    	do_warning( "extracting control information of file $debname failed" );
+	return;
+    }
     my $control = $cache{$debname};
 
     unless ( $raw_data = $parser->parse_mem( $control,