summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-25 05:50:49 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-25 05:50:49 +0000
commit8d106ad4c67bbb1ae568aa275a8a0a02015cfba4 (patch)
tree6ba12e69fe02cbc98e41145b084baad0126aabef /perl-install/standalone/drakconnect
parentb9e6ef4447684d5786c51ea7b447a6b874f67a9b (diff)
downloaddrakx-8d106ad4c67bbb1ae568aa275a8a0a02015cfba4.tar
drakx-8d106ad4c67bbb1ae568aa275a8a0a02015cfba4.tar.gz
drakx-8d106ad4c67bbb1ae568aa275a8a0a02015cfba4.tar.bz2
drakx-8d106ad4c67bbb1ae568aa275a8a0a02015cfba4.tar.xz
drakx-8d106ad4c67bbb1ae568aa275a8a0a02015cfba4.zip
use exists
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect2
1 files changed, 1 insertions, 1 deletions
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 };
}