From 6bb33bd0eab35eb41ca7135d0988a6873bf27e01 Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Sun, 8 Feb 2009 17:16:15 +0000
Subject: [PATCH] extract_files: improve error reporting a bit

---
 bin/extract_files | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bin/extract_files b/bin/extract_files
index 3bfc559..1d3ce91 100755
--- 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,
-- 
2.39.2