r64259 - in /trunk/libnetaddr-ip-perl: Changes IP.pm Lite/Changes Lite/Lite.pm META.yml debian/changelog

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Tue Oct 26 07:22:14 2010
New Revision: 64259

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64259
Log:
New upstream release

Modified:
    trunk/libnetaddr-ip-perl/Changes
    trunk/libnetaddr-ip-perl/IP.pm
    trunk/libnetaddr-ip-perl/Lite/Changes
    trunk/libnetaddr-ip-perl/Lite/Lite.pm
    trunk/libnetaddr-ip-perl/META.yml
    trunk/libnetaddr-ip-perl/debian/changelog

Modified: trunk/libnetaddr-ip-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Changes?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Changes (original)
+++ trunk/libnetaddr-ip-perl/Changes Tue Oct 26 07:22:14 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: trunk/libnetaddr-ip-perl/IP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/IP.pm?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/IP.pm (original)
+++ trunk/libnetaddr-ip-perl/IP.pm Tue Oct 26 07:22:14 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: trunk/libnetaddr-ip-perl/Lite/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Changes?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Changes (original)
+++ trunk/libnetaddr-ip-perl/Lite/Changes Tue Oct 26 07:22:14 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: trunk/libnetaddr-ip-perl/Lite/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Lite.pm?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Lite.pm (original)
+++ trunk/libnetaddr-ip-perl/Lite/Lite.pm Tue Oct 26 07:22:14 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: trunk/libnetaddr-ip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/META.yml?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/META.yml (original)
+++ trunk/libnetaddr-ip-perl/META.yml Tue Oct 26 07:22:14 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:              

Modified: trunk/libnetaddr-ip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/debian/changelog?rev=64259&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/changelog (original)
+++ trunk/libnetaddr-ip-perl/debian/changelog Tue Oct 26 07:22:14 2010
@@ -1,3 +1,9 @@
+libnetaddr-ip-perl (4.034+dfsg-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Tue, 26 Oct 2010 08:22:11 +0100
+
 libnetaddr-ip-perl (4.033+dfsg-1) unstable; urgency=low
 
   [ gregor herrmann ]