From 66138cdc6bbd973426a9345c78c8120d9b446670 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 11 Aug 2000 00:27:27 +0000
Subject: no_comment

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

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ed15573f7..df2953a37 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -468,7 +468,7 @@ sub psUsingHdlist {
 
     #- extract filename from archive, this take advantage of verifying
     #- the archive too.
-    open F, "extract_archive $newf |" or die "unable to parse $newf";
+    open F, "extract_archive $newf |";
     foreach (<F>) {
 	chomp;
 	/^[dlf]\s+/ or next;
@@ -501,7 +501,7 @@ sub psUsingHdlist {
 	    die "bad hdlist file: $newf";
 	}
     }
-    close F;
+    close F or die "unable to parse $newf";
 
     #- update maximal index.
     $m->{max} = scalar(keys %{$packages->[0]}) - 1;
-- 
cgit v1.2.1