summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-11 00:27:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-11 00:27:27 +0000
commit66138cdc6bbd973426a9345c78c8120d9b446670 (patch)
tree63c1ec8ff6f3fff55453c752bbb26092921582a7 /perl-install/pkgs.pm
parent40dcd0a59c0cce9b75f40b338799f5f28dd87cf6 (diff)
downloaddrakx-backup-do-not-use-66138cdc6bbd973426a9345c78c8120d9b446670.tar
drakx-backup-do-not-use-66138cdc6bbd973426a9345c78c8120d9b446670.tar.gz
drakx-backup-do-not-use-66138cdc6bbd973426a9345c78c8120d9b446670.tar.bz2
drakx-backup-do-not-use-66138cdc6bbd973426a9345c78c8120d9b446670.tar.xz
drakx-backup-do-not-use-66138cdc6bbd973426a9345c78c8120d9b446670.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
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;