From 0208a257afaf43c81d2fc213402ff4bdbedc51d2 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 19 Feb 2003 16:44:40 +0000
Subject: added a missing sanity unwind.

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

(limited to 'perl-install')

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};
-- 
cgit v1.2.1