From 3ed3423a6b5d503c99626d2ad2d82e25587ba57d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 10 Jun 2004 15:18:43 +0000
Subject: perl_checker compliance

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

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 034b60f23..be21dac4b 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -509,7 +509,7 @@ sub getNet() {
     # - get_netdevices() use the SIOCGIFCONF ioctl that does not list interfaces that are down
     # - /proc/net/dev does not list VLAN and IP aliased interfaces
 
-    grep { $_ !~ /^(?:lo|ippp|isdn|plip|ppp|sit0)/ }
+    grep { !/^(?:lo|ippp|isdn|plip|ppp|sit0)/ }
       uniq(
            (map { if_(/^\s*([A-Za-z0-9:\.]*):\s/, $1) } cat_("/proc/net/dev")),
            c::get_netdevices(),
-- 
cgit v1.2.1