summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 5 insertions, 1 deletions
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