summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-01-24 11:06:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-01-24 11:06:03 +0000
commitbb1a3951592955a14d20875f2ec45e294141c05e (patch)
tree488ad91fa30c43404b1898256b4e230884e788e2 /perl-install
parent975bd9d340e68d169a2d8664323fe6730ad03695 (diff)
downloaddrakx-bb1a3951592955a14d20875f2ec45e294141c05e.tar
drakx-bb1a3951592955a14d20875f2ec45e294141c05e.tar.gz
drakx-bb1a3951592955a14d20875f2ec45e294141c05e.tar.bz2
drakx-bb1a3951592955a14d20875f2ec45e294141c05e.tar.xz
drakx-bb1a3951592955a14d20875f2ec45e294141c05e.zip
protect against no $do->in
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/do_pkgs.pm4
1 files changed, 2 insertions, 2 deletions
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;