From 6093a579c0d56af8d701da3a7e5c1b3d5997b970 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Tue, 30 Nov 2004 12:27:24 +0000
Subject: Warn when failing to mount the supplementary CD-ROM

---
 perl-install/install_any.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index aa9478db7..0bd973694 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -469,7 +469,11 @@ sub selectSupplMedia {
 	    if ($o->ask_okcancel('', N("Insert the CD"), 1)) {
 		#- mount suppl CD in /mnt/cdrom to avoid umounting /tmp/image
 		mountCdrom("/mnt/cdrom", $cdrom);
-		log::l($@) if $@;
+		if ($@) {
+		    log::l($@);
+		    $o->ask_warn('', N("Unable to mount CD-ROM"));
+		    return 'error';
+		}
 		useMedium($medium_name);
 
 		#- probe for an hdlists file and then look for all hdlists listed herein
-- 
cgit v1.2.1