summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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);