CIDR.pm

So for whatever reason the CIDR.pm file uses on my FreeBSD setup doesn't work for MailScanner.

II had to comment out these croak lines and now it works just fine

diff  /root/CIDR.pm /usr/local/lib/perl5/site_perl/Net/CIDR.pm
218c218
< The result is a two-element array: 
---
> The result is a two-element array:
437c437
<     
---
> 
596,597c596,597
<           #croak "Invalid netblock range: $r[$i]"
<               #unless $isipv6_1 && $isipv6_2;
---
>           croak "Invalid netblock range: $r[$i]"
>               unless $isipv6_1 && $isipv6_2;
794c794
<     my $mismatch = shift;
---
> 
801c801
<     if (!$isipv6_1 != !$isipv6_2)
---
>     if ($isipv6_1 || $isipv6_2)
803,805c803,805
<       return $mismatch if defined $mismatch;
<       #croak "Invalid netblock: $aa-$bb";
<    }
---
>       croak "Invalid netblock: $aa-$bb"
>           unless $isipv6_1 && $isipv6_2;
>     }
810c810
<     #croak "Different number of octets in IP addresses" unless $#a == $#b;
---
>     croak "Different number of octets in IP addresses" unless $#a == $#b;
979c979
<                                 
---
> 
1014,1015c1014,1015
<       next if _ipcmp($b[$i], $lo, -1) < 0;
<       next if _ipcmp($hi, $a[$i], -1) < 0;
---
>       next if _ipcmp($b[$i], $lo) < 0;
>       next if _ipcmp($hi, $a[$i]) < 0;
1284a1285,1286
>     $v =~ s/([0-9A-Fa-f]+)/_triml0($1)/ge;
> 
1291a1294,1299
> sub _triml0 {
>     my ($a) = @_;
> 
>     $a =~ s/^0+//g;
>     return $a
> }