Subject: | cidrs2inverse() not returning adjacent ranges |
cidrs2inverse fails to return adjacent ranges sometimes. The issue
might only occur when it involves a /32 range. See the example below:
my $obj1 = new2 Net::Netmask ('1.0.0.3/32');
my $obj2 = new2 Net::Netmask ('1.0.0.4/31');
die Net::Netmask::errstr if Net::Netmask::errstr;
my @leftover_ranges = cidrs2inverse($obj1, $obj2);
print $leftover_ranges[0] || "Bug: Should have printed 1.0.0.3/32";