diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2006-01-24 11:06:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2006-01-24 11:06:03 +0000 |
| commit | bb1a3951592955a14d20875f2ec45e294141c05e (patch) | |
| tree | 488ad91fa30c43404b1898256b4e230884e788e2 /perl-install | |
| parent | 975bd9d340e68d169a2d8664323fe6730ad03695 (diff) | |
| download | drakx-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.pm | 4 |
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; |