extract_files: improve error reporting a bit

diff --git a/bin/extract_files b/bin/extract_files
index 3bfc5599e4bcce91d11a45c1b5facb2a2468b81f..1d3ce9132046ee1e9e17663bb3fe46beaa0136dc 100755 (executable)
--- a/bin/extract_files
+++ b/bin/extract_files
@@ -557,6 +557,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,