Skip Menu |
 

This queue is for tickets about the Net-IP CPAN distribution.

Report information
The Basics
Id: 74898
Status: resolved
Priority: 0/
Queue: Net-IP

People
Owner: cpan [...] bat.ru
Requestors: contact [...] gestioip.net
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: bug
Date: Sun, 12 Feb 2012 21:28:59 +0100
To: bug-Net-IP [...] rt.cpan.org
From: Marc Uebel <contact [...] gestioip.net>
Download (untitled) / with headers
text/plain 428b
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
Download (untitled) / with headers
text/plain 633b
On Sun Feb 12 15:29:14 2012, contact@gestioip.net wrote: Show quoted text
> 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 >
Seems to be fixed in 1.27: 2221:0:0:f800::1 - 2221:0:0:f800::1 Thank you for the report!


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.