diff options
| -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}; |