From 950fe7395621dc21885ac3e1280e007248646608 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Nov 1999 03:02:37 +0000 Subject: no_comment --- perl-install/install_any.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2326edaa1..d02a80608 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -172,9 +172,11 @@ sub getHds { getHds: $o->{hds} = catch_cdie { fsedit::hds(\@drives, $o->{partitioning}) } sub { - $o->ask_warn(_("Error"), -_("I can't read your partition table, it's too corrupted for me :( -I'll try to go on blanking bad partitions")) unless $o->{partitioning}{readonly}; + my ($err) = $@ =~ /(.*) at /; + $@ =~ /overlapping/ and $o->ask_warn('', $@), return 1; + $o->ask_okcancel(_("Error"), +[_("I can't read your partition table, it's too corrupted for me :( +I'll try to go on blanking bad partitions"), $err]) unless $o->{partitioning}{readonly}; $ok = 0; 1 }; @@ -339,7 +341,7 @@ sub unlockCdroms() { foreach detect_devices::cdroms(); } sub ejectCdrom() { - ioctl detect_devices::tryOpen($_), c::CDROMEJECT(), 1 + eval { ioctl detect_devices::tryOpen($_), c::CDROMEJECT(), 1 } foreach map { first split } grep { m|/tmp/rhimage| } cat_("/proc/mounts"); } -- cgit v1.2.1