From 3ed3423a6b5d503c99626d2ad2d82e25587ba57d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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