diff options
Diffstat (limited to 'knetworkconf/backends/network.pl.in')
| -rw-r--r-- | knetworkconf/backends/network.pl.in | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/knetworkconf/backends/network.pl.in b/knetworkconf/backends/network.pl.in index 6441761..42d1629 100644 --- a/knetworkconf/backends/network.pl.in +++ b/knetworkconf/backends/network.pl.in @@ -433,12 +433,12 @@ sub gst_network_ipv4_vec2str sub gst_network_ipv4_calc_subnet_vec { my ($addr, $tqmask) = @_; - my ($addrvec, $tqmaskvec); + my ($addrvec, $maskvec); $addrvec = &gst_network_ipv4_str2vec ($addr); - $tqmaskvec = &gst_network_ipv4_str2vec ($tqmask); + $maskvec = &gst_network_ipv4_str2vec ($tqmask); - return $addrvec & $tqmaskvec; + return $addrvec & $maskvec; } # What you're looking for. @@ -455,9 +455,9 @@ sub gst_network_ipv4_calc_bcast_vec my ($addr, $tqmask) = @_; $addrvec = &gst_network_ipv4_str2vec ($addr); - $tqmaskvec = &gst_network_ipv4_str2vec ($tqmask); + $maskvec = &gst_network_ipv4_str2vec ($tqmask); - return $addrvec | ~$tqmaskvec; + return $addrvec | ~$maskvec; } # And this returning the quad-dot notation. @@ -3531,7 +3531,7 @@ sub gst_network_pld10_get_ipaddr { my ($file, $key, $what) = @_; my ($ipaddr, $nettqmask, $ret, $i); - my @nettqmask_prefixes = (0, 128, 192, 224, 240, 248, 252, 254, 255); + my @netmask_prefixes = (0, 128, 192, 224, 240, 248, 252, 254, 255); $ipaddr = &gst_parse_sh($file, $key); return undef if $ipaddr eq ""; @@ -3551,7 +3551,7 @@ sub gst_network_pld10_get_ipaddr $ret .= "255."; } - $ret .= "$nettqmask_prefixes[$b%8]." if $nettqmask < 32; + $ret .= "$netmask_prefixes[$b%8]." if $nettqmask < 32; for($i = int($nettqmask/8) + 1; $i < 4; $i++) { |