my $num_nets = 0;
for my $net (@Config::networks) {
+ my ($range) = cache_cidrrange($net);
+ $range =~ /-(.*?)$/;
+ my $broadcast = $1;
+
if ($survey) {
$sendsock->set({
ip => {
next if (cache_cidrlookup(inet_ntoa($saddr), $net));
- my ($range) = cache_cidrrange($net);
- $range =~ /-(.*?)$/;
- my $broadcast = $1;
-
$sendsock->set({
ip => {
saddr => inet_ntoa($saddr),