X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fextract_files;h=79b99467ac39f6dc659521fd7f8e131474f72c2d;hb=59da095beebcee4ec6d78531709d709db391017c;hp=875b7dee7a53c08b584afcc8bc470fc3c5951f92;hpb=fa0e80560d8fc055c1d88997ce47ae01cfe3e8f6;p=deb%2Fpackages.git

diff --git a/bin/extract_files b/bin/extract_files
index 875b7de..79b9946 100755
--- a/bin/extract_files
+++ b/bin/extract_files
@@ -234,7 +234,7 @@ sub to_update {
 
     if ($config_data->{structure} == PKGPOOL) {
 	my $dir = "$target/".pkg_pool_directory( $pkg_data );
-	if (!$force && -d $dir && -f "$dir/log") {
+	if (!$force && -f "$dir/log") {
 	    (utime(undef,undef,"$dir/log") == 1)
 		or do_warning( "touch of $dir/log failed" );
 	    return 0;
@@ -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,