summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-19 16:44:40 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-19 16:44:40 +0000
commit0208a257afaf43c81d2fc213402ff4bdbedc51d2 (patch)
treec94bcd85ce4c7ee567aebf03a34eaf0ee19b34d4 /perl-install/pkgs.pm
parenteacffeb9da469401d89ed2e9145305e712adebda (diff)
downloaddrakx-0208a257afaf43c81d2fc213402ff4bdbedc51d2.tar
drakx-0208a257afaf43c81d2fc213402ff4bdbedc51d2.tar.gz
drakx-0208a257afaf43c81d2fc213402ff4bdbedc51d2.tar.bz2
drakx-0208a257afaf43c81d2fc213402ff4bdbedc51d2.tar.xz
drakx-0208a257afaf43c81d2fc213402ff4bdbedc51d2.zip
added a missing sanity unwind.
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index bb4f3ea75..ec68cb0f6 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -420,6 +420,9 @@ sub psUsingHdlist {
} elsif (-s $newf) {
($m->{start}, $m->{end}) = $packages->parse_hdlist($newf, 1);
} else {
+ delete $packages->{mediums}{$medium};
+ unlink $newf;
+ $fhdlist or unlink $newsf;
die "fatal: no hdlist nor synthesis to read for $fakemedium";
}
$m->{start} > $m->{end} and do { delete $packages->{mediums}{$medium};