r66141 - in /trunk/libnetaddr-ip-perl: Changes IP.pm Lite/Changes Lite/Lite.pm Lite/README Lite/t/v4-cnew.t Lite/t/v6-cnew.t MANIFEST META.yml debian/changelog
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu Dec 23 07:46:22 UTC 2010
Author: periapt-guest
Date: Thu Dec 23 07:46:11 2010
New Revision: 66141
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66141
Log:
New upstream release
Added:
trunk/libnetaddr-ip-perl/Lite/t/v6-cnew.t
- copied unchanged from r66140, branches/upstream/libnetaddr-ip-perl/current/Lite/t/v6-cnew.t
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/Lite/README
trunk/libnetaddr-ip-perl/Lite/t/v4-cnew.t
trunk/libnetaddr-ip-perl/MANIFEST
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=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Changes (original)
+++ trunk/libnetaddr-ip-perl/Changes Thu Dec 23 07:46:11 2010
@@ -1,4 +1,12 @@
Revision history for Perl extension NetAddr::IP
+
+4.038 Fri Dec 17 17:47:47 PST 2010
+ Modify subs "new" and "new6" in Lite.pm to accomodate
+ Cisco mask syntax that uses space instead of "/" for a separator
+ This eliminates the need for "new_cis" and "newcis6" which are now
+ deprecated.
+
+ Modify LIte/t/v4-cnew.t and add Lite/t/v6-cnew.t to test the above
4.037 Fri Nov 19 10:48:01 PST 2010
add :upper and :lower to Lite.pm v1.23
Modified: trunk/libnetaddr-ip-perl/IP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/IP.pm?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/IP.pm (original)
+++ trunk/libnetaddr-ip-perl/IP.pm Thu Dec 23 07:46:11 2010
@@ -4,7 +4,7 @@
use strict;
#use diagnostics;
-use NetAddr::IP::Lite 1.23 qw(Zero Zeros Ones V4mask V4net);
+use NetAddr::IP::Lite 1.24 qw(Zero Zeros Ones V4mask V4net);
use NetAddr::IP::Util 1.35 qw(
sub128
inet_aton
@@ -34,7 +34,7 @@
@ISA = qw(Exporter NetAddr::IP::Lite);
-$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.37 $ =~ /\d+/g) };
+$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.38 $ =~ /\d+/g) };
=pod
@@ -481,6 +481,8 @@
=item C<-E<gt>new_from_aton($netaddr)>
+=item new_cis and new_cis6 are DEPRECATED
+
=item C<-E<gt>new_cis("$addr $mask)>
=item C<-E<gt>new_cis6("$addr $mask)>
@@ -501,6 +503,9 @@
The last two methods B<new_cis> and B<new_cis6> differ from B<new> and
B<new6> only in that they except the common Cisco address notation for
address/mask pairs with a B<space> as a separator instead of a slash (/)
+
+These methods are DEPRECATED because the functionality is now included
+in the other "new" methods
i.e. ->new_cis('1.2.3.0 24')
or
Modified: trunk/libnetaddr-ip-perl/Lite/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Changes?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Changes (original)
+++ trunk/libnetaddr-ip-perl/Lite/Changes Thu Dec 23 07:46:11 2010
@@ -1,4 +1,12 @@
Revision history for Perl extension NetAddr::IP::Lite
+
+1.24 Fri Dec 17 17:47:47 PST 2010
+ Modify subs "new" and "new6" to accomodate
+ Cisco mask syntax that uses space instead of "/" for a separator
+ This eliminates the need for "new_cis" and "newcis6" which are now
+ deprecated.
+
+ Modify t/v4-cnew.t and add t/v6-cnew.t to test the above
1.23 Fri Nov 19 10:48:01 PST 2010
add :upper and :lower to Lite.pm v1.23
Modified: trunk/libnetaddr-ip-perl/Lite/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Lite.pm?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Lite.pm (original)
+++ trunk/libnetaddr-ip-perl/Lite/Lite.pm Thu Dec 23 07:46:11 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.23 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.24 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Exporter;
@@ -503,6 +503,8 @@
=item C<-E<gt>new_from_aton($netaddr)>
+=item new_cis and new_cis6 are DEPRECATED
+
=item C<-E<gt>new_cis("$addr $mask)>
=item C<-E<gt>new_cis6("$addr $mask)>
@@ -523,6 +525,9 @@
The last two methods B<new_cis> and B<new_cis6> differ from B<new> and
B<new6> only in that they except the common Cisco address notation for
address/mask pairs with a B<space> as a separator instead of a slash (/)
+
+These methods are DEPRECATED because the functionality is now included
+in the other "new" methods
i.e. ->new_cis('1.2.3.0 24')
or
@@ -568,11 +573,15 @@
n.n
n.n/mm
+ n.n mm
n.n.n
n.n.n/mm
+ n.n.n mm
n.n.n.n
n.n.n.n/mm 32 bit cidr notation
+ n.n.n.n mm
n.n.n.n/m.m.m.m
+ n.n.n.n m.m.m.m
loopback, localhost, broadcast, any, default
x.x.x.x/host
0xABCDEF, 0b111111000101011110, (or a bcd number)
@@ -712,7 +721,8 @@
while (1) {
unless (@_) {
- if ($ip =~ m!^(.+)/(.+)$!) {
+# if ($ip =~ m!^(.+)/(.+)$!) {
+ if ($ip =~ m!^([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)$!) {
$ip = $1;
$mask = $2;
} elsif (grep($ip eq $_,qw(default any broadcast loopback unspecified))) {
Modified: trunk/libnetaddr-ip-perl/Lite/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/README?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/README (original)
+++ trunk/libnetaddr-ip-perl/Lite/README Thu Dec 23 07:46:11 2010
@@ -187,6 +187,7 @@
"->new6([$addr, [ $mask]])"
"->new_no([$addr, [ $mask]])"
"->new_from_aton($netaddr)"
+ new_cis and new_cis6 are DEPRECATED
"->new_cis("$addr $mask)"
"->new_cis6("$addr $mask)"
The first two methods create a new address with the supplied address
@@ -207,6 +208,9 @@
address/mask pairs with a space as a separator instead of a slash
(/)
+ These methods are DEPRECATED because the functionality is now
+ included in the other "new" methods
+
i.e. ->new_cis('1.2.3.0 24')
or
->new_cis6('::1.2.3.0 120')
@@ -250,11 +254,15 @@
n.n
n.n/mm
+ n.n mm
n.n.n
n.n.n/mm
+ n.n.n mm
n.n.n.n
n.n.n.n/mm 32 bit cidr notation
+ n.n.n.n mm
n.n.n.n/m.m.m.m
+ n.n.n.n m.m.m.m
loopback, localhost, broadcast, any, default
x.x.x.x/host
0xABCDEF, 0b111111000101011110, (or a bcd number)
Modified: trunk/libnetaddr-ip-perl/Lite/t/v4-cnew.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/t/v4-cnew.t?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/t/v4-cnew.t (original)
+++ trunk/libnetaddr-ip-perl/Lite/t/v4-cnew.t Thu Dec 23 07:46:11 2010
@@ -5,6 +5,10 @@
[ '127.1/16', '127.1.0.0/16' ],
[ '10.10.10', '10.10.0.10/32' ],
[ '10.10.10/24', '10.10.10.0/24' ],
+# include test for cisco syntax using space instead of '/'
+ [ '127.1 16', '127.1.0.0/16' ],
+ [ '10.10.10 24', '10.10.10.0/24' ],
+ [ '10.10.10 255.255.255.0', '10.10.10.0/24' ],
);
$| = 1;
Modified: trunk/libnetaddr-ip-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/MANIFEST?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/MANIFEST (original)
+++ trunk/libnetaddr-ip-perl/MANIFEST Thu Dec 23 07:46:11 2010
@@ -56,6 +56,7 @@
Lite/t/v4-range.t
Lite/t/v4-snew.t
Lite/t/v4-wnew.t
+Lite/t/v6-cnew.t
Lite/t/v6-contains.t
Lite/t/v6-inc.t
Lite/t/v6-new_cis6_base.t
Modified: trunk/libnetaddr-ip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/META.yml?rev=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/META.yml (original)
+++ trunk/libnetaddr-ip-perl/META.yml Thu Dec 23 07:46:11 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: NetAddr-IP
-version: 4.037
+version: 4.038
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=66141&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/changelog (original)
+++ trunk/libnetaddr-ip-perl/debian/changelog Thu Dec 23 07:46:11 2010
@@ -1,3 +1,9 @@
+libnetaddr-ip-perl (4.038+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Thu, 23 Dec 2010 07:48:26 +0000
+
libnetaddr-ip-perl (4.037+dfsg-1) unstable; urgency=low
* New upstream release
More information about the Pkg-perl-cvs-commits
mailing list