From c072726285dbf4a636fef8667067fd0e4a2ecde5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 25 Sep 2007 11:41:29 +0000 Subject: - don't crash install when mounting CD fails (#33421) --- perl-install/install/NEWS | 2 ++ perl-install/install/steps_interactive.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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; -- cgit v1.2.1