summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/do_pkgs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index dae13aba8..44f2e3ada 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -38,7 +38,7 @@ If $b_auto is set, (g)urpmi will not ask any questions.
sub ensure_is_installed {
my ($do, $pkg, $o_file, $b_auto) = @_;
- if ($o_file ? -e "$::prefix$o_file" : $do->is_installed($pkg)) {
+ if ($do->is_installed($pkg)) {
return 1;
}
@@ -187,8 +187,8 @@ This is less costly (needs to query RPM DB)
=cut
sub is_installed {
- my ($do, $name) = @_;
- $do->are_installed($name);
+ my ($do, $name, $o_file) = @_;
+ $o_file ? -e "$::prefix$o_file" : $do->are_installed($name);
}
=item check_kernel_module_packages($do, $base_name)