summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/standalone.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 474d6beb7..98ca03b97 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -27,6 +27,9 @@ sub interactive::do_pkgs {
sub install {
my ($o, @l) = @_;
+
+ return 1 if is_installed($o, @l);
+
my $wait;
if ($o->{in}->isa('interactive::newt')) {
$o->{in}->suspend;
@@ -52,7 +55,7 @@ sub what_provides {
sub is_installed {
my ($o, @l) = @_;
- system('rpm', '-q', @l) == 0;
+ run_program::run('rpm', '>', '/dev/null', '-q', @l);
}
sub remove {