diff options
Diffstat (limited to 'perl-install/standalone')
| -rw-r--r-- | perl-install/standalone/net_applet | 6 |
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 { |