diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2021-02-06 22:28:02 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2021-02-06 22:28:02 +0100 |
| commit | 45ee1aa2b386a1b226b93156cd04a5526f4c909b (patch) | |
| tree | b8513c99349f49abd0a5aaf2e6e761200c2a6635 | |
| parent | 9cf72e226b267a890e7f1231318189bc9b1238ac (diff) | |
| download | drakwizard-45ee1aa2b386a1b226b93156cd04a5526f4c909b.tar drakwizard-45ee1aa2b386a1b226b93156cd04a5526f4c909b.tar.gz drakwizard-45ee1aa2b386a1b226b93156cd04a5526f4c909b.tar.bz2 drakwizard-45ee1aa2b386a1b226b93156cd04a5526f4c909b.tar.xz drakwizard-45ee1aa2b386a1b226b93156cd04a5526f4c909b.zip | |
perl_checker cleanups
| -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 { |