From bb1a3951592955a14d20875f2ec45e294141c05e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 24 Jan 2006 11:06:03 +0000 Subject: protect against no $do->in --- perl-install/do_pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/do_pkgs.pm') diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index 73fa466d1..d5ea08a0c 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -16,12 +16,12 @@ sub ensure_is_installed { $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->in; if (!$do->install($pkg)) { - $do->in->ask_warn(N("Error"), N("Could not install the %s package!", $pkg)); + $do->in->ask_warn(N("Error"), N("Could not install the %s package!", $pkg)) if $do->in; return; } } if ($o_file && ! -e "$::prefix$o_file") { - $do->in->ask_warn('', N("Mandatory package %s is missing", $pkg)); + $do->in->ask_warn('', N("Mandatory package %s is missing", $pkg)) if $do->in; return; } 1; -- cgit v1.2.1