From 86f96cd66b41a1d5ff3b5958a858cccef55a389a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Feb 2004 10:04:45 +0000
Subject: replace unless with if

---
 perl-install/install2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 25af8d188..a9db0042b 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -537,11 +537,11 @@ sub main {
     }
 
     #- needed very early for install_steps_gtk
-    unless ($::testing) {
+    if (!$::testing) {
 	if ($o->{mouse}) {
 	    mouse::load_modules($o->{mouse});
 	} else {
-	    eval { $o->{mouse} = mouse::detect() } unless $o->{nomouseprobe};
+	    eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe};
 	}
     }
 
-- 
cgit v1.2.1