venturinog Ya lo tengo funcionando.
El problema estaba en el fichero IP.pm de /usr/lib64/perl5/vendor_perl/NetAddr
en mitad del fichero he quitado END
y he añadido debajo de
return _compV6($addr);
}
el canon() con :
=item C<-E<gt>canon()>
returned by "->short()".
=cut
sub canon($) {
my $addr = $[0]->addr;
return $[0]->{isv6} ? lc _compV6($addr) : $addr;
}