Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

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

Report information
The Basics
Id: 121608
Status: new
Priority: 0/
Queue: Net-CIDR-Compare

People
Owner: Nobody in particular
Requestors: davidp [...] preshweb.co.uk
Cc:
AdminCc:

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



Subject: Invalid range calculation for some IPv4 IPs (but fine for others)
Download (untitled) / with headers
text/plain 777b
I'm seeing some IPs turn into nonsense instead of a /32 when added. e.g.: [davidp@supernova:~/tmp]$ cat testcase #!/usr/bin/env perl use strict; use Net::CIDR::Compare; my $ip = shift || die "usage: $0 ip"; my $collection = Net::CIDR::Compare->new( print_errors => 1 ); my $list = $collection->new_list(); $collection->add_range($list, $ip); $collection->process_intersection(expand_cidr => 8); while (my $cidr_range = $collection->get_next_intersection_range()) { print "range: $cidr_range\n"; } [davidp@supernova:~/tmp]$ perl testcase 83.170.75.28 range: 83.170.75.28/32 [davidp@supernova:~/tmp]$ perl testcase 216.185.103.182 range: 1099511627736.185.103.182/32 Am I doing something silly, or is this tickling an odd bug? Is this module maintained any more?


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.