summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-30 12:27:24 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-30 12:27:24 +0000
commit6093a579c0d56af8d701da3a7e5c1b3d5997b970 (patch)
treed0f7463577a263d60a299ac3d40cfb451556c557 /perl-install
parentab1a2e826eff2a1be9915cc70f707a928f84f01f (diff)
downloaddrakx-6093a579c0d56af8d701da3a7e5c1b3d5997b970.tar
drakx-6093a579c0d56af8d701da3a7e5c1b3d5997b970.tar.gz
drakx-6093a579c0d56af8d701da3a7e5c1b3d5997b970.tar.bz2
drakx-6093a579c0d56af8d701da3a7e5c1b3d5997b970.tar.xz
drakx-6093a579c0d56af8d701da3a7e5c1b3d5997b970.zip
Warn when failing to mount the supplementary CD-ROM
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