From b2b342fe5a217208ccda9c922c02183fbcfe1d58 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 3 Sep 2004 05:32:53 +0000
Subject: Add a system error when no CD reader is found for a supplementary CD

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 46102ef8d..13812be85 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -428,7 +428,7 @@ sub selectSupplMedia {
 	local $o->{method} = $suppl_method;
 	if ($suppl_method eq 'cdrom') {
 	    (my $cdromdev) = detect_devices::cdroms();
-	    return '' if !$cdromdev;
+	    $o->ask_warn('', N("No device found")), return 'error' if !$cdromdev;
 	    $cdrom = $cdromdev->{device};
 	    devices::make($cdrom);
 	    ejectCdrom($cdrom);
-- 
cgit v1.2.1