From 7bb571505fdd3267b7446e9642ba0d2235e50292 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 20 Feb 2003 15:54:12 +0000
Subject: 4.5-8mdk

---
 packdrake-pm/packdrake.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'packdrake-pm')

diff --git a/packdrake-pm/packdrake.pm b/packdrake-pm/packdrake.pm
index 8e39f46..971f260 100644
--- a/packdrake-pm/packdrake.pm
+++ b/packdrake-pm/packdrake.pm
@@ -229,7 +229,7 @@ sub cat_compress {
 	}
 	close FILE;
     }
-    close F;
+    close F or die "packdrake: unable to compress data using \"$packer->{compress}\"\n";
     -s $packer->{tmpz};
 }
 
@@ -505,7 +505,7 @@ sub build_archive {
     print OUTPUT $toc_str;
     print OUTPUT $toc_data;
     print OUTPUT build_toc_trailer($packer);
-    close OUTPUT;
+    close OUTPUT or die "packdrake: unable to build toc trailer of $packer->{archive}\n";
 
     unlink $packer->{tmpz};
 
-- 
cgit v1.2.1