From eadbe480a2959183f72c636aa5bbabd4de070b7b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 21 Jun 2004 06:59:20 +0000
Subject: (getIP) simplify

---
 perl-install/standalone/net_applet | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'perl-install/standalone/net_applet')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 34786234e..685a90c05 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -111,11 +111,7 @@ sub getIP {
     my @ip;
     my $ifconfig = '/sbin/ifconfig';
     my @lines = qx|$ifconfig $interface|;
-    foreach(@lines){
-        if(/inet adr:([\d.]+)/){
-	    push @ip, $1;
-	}
-    }
+    my @ip = map { if_(/inet adr:([\d.]+)/, $1) } @lines;
     return wantarray() ? @ip : $ip[0];
 }
 sub cronNetwork {
-- 
cgit v1.2.1