From 8d106ad4c67bbb1ae568aa275a8a0a02015cfba4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 25 Aug 2004 05:50:49 +0000
Subject: use exists

---
 perl-install/standalone/drakconnect | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 1aa28d9cf..7c46f194d 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -207,7 +207,7 @@ sub manage {
     }
     while (my ($device, $interface) = each %$intf) {
         my $type;
-        member($device, keys %name) and next;
+        exists $name{$device} and next;
         $type = network::tools::get_interface_type($interface) and $p->{$type} = { kind => $device };
     }
 
-- 
cgit v1.2.1