From 45ee1aa2b386a1b226b93156cd04a5526f4c909b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 6 Feb 2021 22:28:02 +0100 Subject: perl_checker cleanups --- common/IFCFG.pm | 10 +++++----- 1 file 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 { -- cgit v1.2.1