summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_interactive.pm2
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b2a28e0bf..e6479bc09 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- don't crash install when mounting CD fails (#33421)
+
Version 10.4.211 - 24 September 2007, by Pascal "Pixel" Rigaux
- on upgrade, don't add resume=xxx if noresume is there (#33953)
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index a7ca657c1..b02f066e8 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -329,7 +329,7 @@ sub ask_change_cd_ {
Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.
If you do not have it, press Cancel to avoid installation from this Cd-Rom.", $phys_m->{name}), 1) or return;
- fs::mount::part($phys_m);
+ eval { fs::mount::part($phys_m) };
#- it can be a directory, so don't use -f
!$o_rel_file || -e install::media::path($phys_m, $o_rel_file) and return 1;