(ensure_is_installed): file to test if the package is installed is optional.

But in that case, you have to check if it is installed first.

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index 3bdfe7501..c8cf03b23 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -15,14 +15,14 @@ sub new {
 }
 
 sub ensure_is_installed {
-    my ($do, $pkg, $file, $b_auto) = @_;
+    my ($do, $pkg, $o_file, $b_auto) = @_;
 
-    if (! -e "$::prefix$file") {
+    if (! $o_file || ! -e "$::prefix$o_file") {
 	$do->{in}->ask_okcancel('', N("The package %s needs to be installed. Do you want to install it?", $pkg), 1) 
 	  or return if !$b_auto;
-	$do->install($pkg);
+	$do->install($pkg) or return;
     }
-    if (! -e "$::prefix$file") {
+    if ($o_file && ! -e "$::prefix$o_file") {
 	$do->{in}->ask_warn('', N("Mandatory package %s is missing", $pkg));
 	return;
     }