summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-03 05:32:53 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-03 05:32:53 +0000
commitb2b342fe5a217208ccda9c922c02183fbcfe1d58 (patch)
treeb3a4946b098c9b95875fdd78b29574a710685efc /perl-install/install_any.pm
parent76f428940c3a60dafac5567bad44a4f41e0565a6 (diff)
downloaddrakx-backup-do-not-use-b2b342fe5a217208ccda9c922c02183fbcfe1d58.tar
drakx-backup-do-not-use-b2b342fe5a217208ccda9c922c02183fbcfe1d58.tar.gz
drakx-backup-do-not-use-b2b342fe5a217208ccda9c922c02183fbcfe1d58.tar.bz2
drakx-backup-do-not-use-b2b342fe5a217208ccda9c922c02183fbcfe1d58.tar.xz
drakx-backup-do-not-use-b2b342fe5a217208ccda9c922c02183fbcfe1d58.zip
Add a system error when no CD reader is found for a supplementary CD
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
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);