diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-11-30 12:27:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-11-30 12:27:24 +0000 |
| commit | 6093a579c0d56af8d701da3a7e5c1b3d5997b970 (patch) | |
| tree | d0f7463577a263d60a299ac3d40cfb451556c557 /perl-install/install_any.pm | |
| parent | ab1a2e826eff2a1be9915cc70f707a928f84f01f (diff) | |
| download | drakx-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/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
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 |