Subject: | bug |
Date: | Sun, 12 Feb 2012 21:28:59 +0100 |
To: | bug-Net-IP [...] rt.cpan.org |
From: | Marc Uebel <contact [...] gestioip.net> |
Hello
First thanks a lot for providing the Net::IP module!
I found that the function ip_compress_address returns the invalid IPv6
address 2221::f800::1 if you pass the address 2221:0:0:f800::1 as
argument.
Regards
Marc Uebel
#!/usr/bin/perl
use Net::IP qw(:PROC);
$ip="2221:0:0:f800::1";
$version="6";
$ip_comp = ip_compress_address ($ip, $version);
print "$ip - $ip_comp\n";
Output:
2221:0:0:f800::1 - 2221::f800::1