Added error checking, from 2011-04-18.
authorBart Martens <bartm@debian.org>
Tue, 1 Nov 2011 19:29:44 +0000 (20:29 +0100)
committerBart Martens <bartm@debian.org>
Tue, 1 Nov 2011 19:29:44 +0000 (20:29 +0100)
bin/extract_files

index 5c57bab..a94fba0 100755 (executable)
@@ -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,