diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-02-19 16:44:40 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-02-19 16:44:40 +0000 |
| commit | 0208a257afaf43c81d2fc213402ff4bdbedc51d2 (patch) | |
| tree | c94bcd85ce4c7ee567aebf03a34eaf0ee19b34d4 /perl-install/pkgs.pm | |
| parent | eacffeb9da469401d89ed2e9145305e712adebda (diff) | |
| download | drakx-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.pm | 3 |
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}; |