Commit dd307a74 authored by Nick Morrott's avatar Nick Morrott

Import Upstream version 0.15

parent 49359a9d
......@@ -50,7 +50,7 @@ use Carp;
);
$VERSION = "0.14";
$VERSION = "0.15";
1;
......@@ -1231,8 +1231,8 @@ sub cidrvalidate {
foreach (@o)
{
return if /^0./;
return if $_ < 0 || $_ > 255;
return undef if /^0./;
return undef if $_ < 0 || $_ > 255;
}
if ($v =~ /^::ffff/)
......@@ -1250,7 +1250,7 @@ sub cidrvalidate {
foreach (addr2cidr($n))
{
return $v if $_ eq "$n/$suffix";
return $_ if $_ eq "$n/$suffix";
}
return undef;
}
......@@ -1273,7 +1273,7 @@ sub cidrvalidate {
foreach (addr2cidr($v))
{
return $v if $_ eq "$v/$suffix";
return $_ if $_ eq "$v/$suffix";
}
return undef;
}
......
......@@ -31,4 +31,8 @@ Revision history for Perl extension Net::CIDR.
- corrected some documentation errors. cidrvalidate() will validate
either an IP address or a CIDR, either one. Reimplemented addr2cidr.
New implementation does not use Math::BigInt, much faster with ipv6
addresses.
\ No newline at end of file
addresses.
0.15 Thu Feb 16 08:09:45 EST 2012
- corrected cidrvalidate() to return values according to its
documentation, in some corner cases.
--- #YAML:1.0
name: Net-CIDR
version: 0.14
version: 0.15
abstract: Manipulate IPv4/IPv6 netblocks in CIDR notation
author:
- Sam Varshavchik <sam@email-scan.com>
......@@ -16,7 +16,7 @@ no_index:
directory:
- t
- inc
generated_by: ExtUtils::MakeMaker version 6.55_02
generated_by: ExtUtils::MakeMaker version 6.57_05
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Summary: Net::CIDR Perl module
Name: perl-Net-CIDR
Version: 0.14
Version: 0.15
Release: 1%(%{__perl} -e 'my $v=$^V; $v =~ s/(.)/".".ord($1)/ge;print "$v\n";')
Source0: Net-CIDR-%{version}.tar.gz
License: Perl
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment