diff options
Diffstat (limited to 'common')
-rw-r--r-- | common/IFCFG.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/common/IFCFG.pm b/common/IFCFG.pm index badd586c..09fc49ef 100644 --- a/common/IFCFG.pm +++ b/common/IFCFG.pm @@ -66,9 +66,9 @@ sub new { my $self = {}; my @devices = detect_devices::get_all_net_devices(); foreach my $device (@devices) { - if( detect_devices::is_lan_interface($device)) { - $_ = `/sbin/ip -4 address show dev $device |grep inet`; - my ($ip, $netmask, $bcast,) = /inet\s([0-9\.]*)\/([0-9]*)\sbrd\s([0-9\.]*)/; + if (detect_devices::is_lan_interface($device)) { + local $_ = `/sbin/ip -4 address show dev $device |grep inet`; + my ($ip, $netmask, $bcast,) = m!inet\s([0-9\.]*)/([0-9]*)\sbrd\s([0-9\.]*)!; if (defined $ip && defined $bcast && defined $netmask) { $self->{itf}{$device} = { IPADDR => $ip, BROADCAST => $bcast, NETMASK => @network_masks[$netmask - 1] }; my %conf = getVarsFromSh("/etc/sysconfig/network-scripts/ifcfg-$device"); @@ -95,9 +95,9 @@ sub is_dhcp { } sub default_itf { - $_ = `/sbin/route | grep default | tr -s " " | cut -d " " -f8`; + local $_ = `/sbin/route | grep default | tr -s " " | cut -d " " -f8`; s/\n$//; - "$_"; + $_; } sub itf_get { |