From 89df88db01f24d8a31c487e6feb723bd2f58e4a8 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 16 Jul 2004 06:33:04 +0000
Subject: do not ask to install already installed packages, prefer to install
 uninstalled packages (misc)

---
 perl-install/wizards.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index c5a39c4da..2ae0af4ca 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -91,7 +91,7 @@ sub new { bless {}, $_[0] }
 sub check_rpm {
     my ($in, $rpms) = @_;
     foreach my $rpm (@$rpms) {
-        next if !$in->do_pkgs->is_installed($rpm);
+        next if $in->do_pkgs->is_installed($rpm);
         if ($in->ask_okcancel(N("Error"), N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) {
             $::testing and next;
             if (!$in->do_pkgs->install($rpm)) {
-- 
cgit v1.2.1