Deb.pm : do not die if the uncompress fails

Change-Id: Idbf112c9ca7a4b99e3c42203bf3e08321d05da36

diff --git a/Build/Deb.pm b/Build/Deb.pm
index 7955cf6..3d72088 100644 (file)
--- a/Build/Deb.pm
+++ b/Build/Deb.pm
@@ -196,7 +196,10 @@ sub uncompress {
   close(TMP);
   $data = '';
   1 while sysread(TMP2, $data, 1024, length($data)) > 0;
-  close(TMP2) || die("$tool error\n");
+  if (!close(TMP2)) {
+    warn("$tool error: $?\n");
+    return undef;
+  }
   return $data;
 }