| Subject: | cidrs2inverse() trouble comparing /31's with /32's |
This may be related to bug #22084. The cidrs2inverse fails to return
the "other /32" when comparing a /32 with a /31. See the example below:
my $obj1 = new2 Net::Netmask ('1.0.0.4/31');
my $obj2 = new2 Net::Netmask ('1.0.0.4/32');
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.5/32";