summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet6
1 files changed, 1 insertions, 5 deletions
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 {