r64257 - in /branches/upstream/libnetaddr-ip-perl/current: Changes IP.pm Lite/Changes Lite/Lite.pm META.yml
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Tue Oct 26 07:19:22 UTC 2010
Author: periapt-guest
Date: Tue Oct 26 07:13:13 2010
New Revision: 64257
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64257
Log:
[svn-upgrade] new version libnetaddr-ip-perl (4.034+dfsg)
Modified:
branches/upstream/libnetaddr-ip-perl/current/Changes
branches/upstream/libnetaddr-ip-perl/current/IP.pm
branches/upstream/libnetaddr-ip-perl/current/Lite/Changes
branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm
branches/upstream/libnetaddr-ip-perl/current/META.yml
Modified: branches/upstream/libnetaddr-ip-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/Changes?rev=64257&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Changes (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Changes Tue Oct 26 07:13:13 2010
@@ -1,4 +1,10 @@
Revision history for Perl extension NetAddr::IP
+
+4.034 Mon Oct 25 16:22:01 PDT 2010
+ Updated Lite::_xnew v1.20 to properly handle ipV6 notation of the form
+ xxxx:xxxx:xxxx:xxxx:xxxx:xxxx, DDD
+
+ Thanks to Dusty Mabe <Dusty.Mabe at tekelec.com> for spotting this bug
4.033 Wed Sep 29 10:32:50 PDT 2010
Conditionalize import of AF_INET6 in Util.pm
Modified: branches/upstream/libnetaddr-ip-perl/current/IP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/IP.pm?rev=64257&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/IP.pm (original)
+++ branches/upstream/libnetaddr-ip-perl/current/IP.pm Tue Oct 26 07:13:13 2010
@@ -34,7 +34,7 @@
@ISA = qw(Exporter NetAddr::IP::Lite);
-$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.33 $ =~ /\d+/g) };
+$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.34 $ =~ /\d+/g) };
=pod
Modified: branches/upstream/libnetaddr-ip-perl/current/Lite/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/Lite/Changes?rev=64257&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Changes (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Changes Tue Oct 26 07:13:13 2010
@@ -1,4 +1,10 @@
Revision history for Perl extension NetAddr::IP::Lite
+
+1.20 Mon Oct 25 16:22:01 PDT 2010
+ Updated _xnew to properly handle ipV6 notation of the form
+ xxxx:xxxx:xxxx:xxxx:xxxx:xxxx, DDD
+
+ Thanks to Dusty Mabe <Dusty.Mabe at tekelec.com> for spotting this bug
1.19 Wed Sep 29 10:32:50 PDT 2010
Conditionalize import of AF_INET6 in Util.pm
Modified: branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm?rev=64257&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm Tue Oct 26 07:13:13 2010
@@ -29,7 +29,7 @@
use vars qw(@ISA @EXPORT_OK $VERSION $Accept_Binary_IP $Old_nth $AUTOLOAD *Zero);
-$VERSION = do { my @r = (q$Revision: 1.19 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Exporter;
@@ -681,7 +681,7 @@
$ip = $fip6{$ip};
last;
} else {
- return undef;
+ return undef unless $isV6;
}
} else {
$mask = lc $_[0];
@@ -694,7 +694,7 @@
# parse mask
if ($mask =~ /^(\d+)$/) {
- if (index($ip,':') < 0) { # is ipV4
+ if (! $isV6 && index($ip,':') < 0) { # is ipV4
if ($1 == 32) { # cidr 32
$mask = Ones;
}
Modified: branches/upstream/libnetaddr-ip-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/META.yml?rev=64257&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/META.yml (original)
+++ branches/upstream/libnetaddr-ip-perl/current/META.yml Tue Oct 26 07:13:13 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: NetAddr-IP
-version: 4.033
+version: 4.034
abstract: Manages IPv4 and IPv6 addresses and subnets
license: ~
author:
More information about the Pkg-perl-cvs-commits
mailing list