r69235 - in /branches/upstream/libnetaddr-ip-perl/current: Changes IP.pm Lite/Changes Lite/Lite.pm Lite/Util/Changes Lite/Util/Util.pm META.yml
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Mon Feb 21 15:21:35 UTC 2011
Author: periapt-guest
Date: Mon Feb 21 15:20:56 2011
New Revision: 69235
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69235
Log:
[svn-upgrade] new version libnetaddr-ip-perl (4.040+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/Lite/Util/Changes
branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Util.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=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Changes (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Changes Mon Feb 21 15:20:56 2011
@@ -1,47 +1,53 @@
Revision history for Perl extension NetAddr::IP
+
+4.040 Sat Feb 19 10:04:00 PST 2011
+ correction to use of Util.pm package lexicals
+
+ thanks to mishikal at yahoo.com for spotting the bug and to
+ Mark Martinec mark.martinec+ama... at ijs.si for the solution.
4.039 Wed Feb 16 15:48:03 PST 2011
Correct documentation for 'split' methods
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
+ 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
- add comments about rfc5952 requirement for lowercase ipV6 notation
+ add :upper and :lower to Lite.pm v1.23
+ add comments about rfc5952 requirement for lowercase ipV6 notation
in Lite.pm v1.23 and IP.pm
- add test for :lower in Lite.pm v1.23
+ add test for :lower in Lite.pm v1.23
4.036 Tue Nov 16 16:28:37 PST 2010
- In Util.pm v1.35, naip_gethostbyname modified to return undef
+ In Util.pm v1.35, naip_gethostbyname modified to return undef
instead of 0 (zero) on failure
- thanks to Terry Cassidy enaudishaylee at tc17.com for the bug report
-
- In Util.pm v1.35, move sub's ipv6_n2d and ipv6_n2x to non-autosplit
+ thanks to Terry Cassidy enaudishaylee at tc17.com for the bug report
+
+ In Util.pm v1.35, move sub's ipv6_n2d and ipv6_n2x to non-autosplit
portion of module to eliminate warnings during autosplit of "our"
variables
- thanks to Nicholas Bamber <nicholas at periapt.co.uk>
- Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=517361
+ thanks to Nicholas Bamber <nicholas at periapt.co.uk>
+ Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=517361
In Lite.pm v1.22, update new6 to properly classify short ipv4 notation
- i.e. 127/8 with test for ":" rather than match for \d.\d.\d.\d
-
- thanks to Steve Huff (SHUFF) * shuff at cpan.org for
- spotting that bug.
-
- In Lite.pm v1.22, update t/v4-new.t for deprecated array syntax in
+ i.e. 127/8 with test for ":" rather than match for \d.\d.\d.\d
+
+ thanks to Steve Huff (SHUFF) * shuff at cpan.org for
+ spotting that bug.
+
+ In Lite.pm v1.22, update t/v4-new.t for deprecated array syntax in
perl 5.13
- was: qw(...stuff...)
- is: (qw(...stuff...))
-
- thanks to Todd Rinaldo <toddr at cpan.org> for reporting this
+ was: qw(...stuff...)
+ is: (qw(...stuff...))
+
+ thanks to Todd Rinaldo <toddr at cpan.org> for reporting this
4.035 Thu Oct 28 14:26:19 PDT 2010
fix bug in Lite v1.21 where new6 improperly assigns the mask value
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=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/IP.pm (original)
+++ branches/upstream/libnetaddr-ip-perl/current/IP.pm Mon Feb 21 15:20:56 2011
@@ -4,8 +4,8 @@
use strict;
#use diagnostics;
-use NetAddr::IP::Lite 1.24 qw(Zero Zeros Ones V4mask V4net);
-use NetAddr::IP::Util 1.35 qw(
+use NetAddr::IP::Lite 1.25 qw(Zero Zeros Ones V4mask V4net);
+use NetAddr::IP::Util 1.36 qw(
sub128
inet_aton
inet_any2n
@@ -34,7 +34,7 @@
@ISA = qw(Exporter NetAddr::IP::Lite);
-$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.39 $ =~ /\d+/g) };
+$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.40 $ =~ /\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=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Changes (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Changes Mon Feb 21 15:20:56 2011
@@ -1,4 +1,10 @@
Revision history for Perl extension NetAddr::IP::Lite
+
+1.25 Sat Feb 19 10:04:00 PST 2011
+ correction to use of Util.pm package lexicals
+
+ thanks to mishikal at yahoo.com for spotting the bug and to
+ Mark Martinec mark.martinec+ama... at ijs.si for the solution.
1.24 Fri Dec 17 17:47:47 PST 2010
Modify subs "new" and "new6" to accomodate
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=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Lite.pm Mon Feb 21 15:20:56 2011
@@ -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.24 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.25 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
require Exporter;
Modified: branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Changes?rev=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Changes (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Changes Mon Feb 21 15:20:56 2011
@@ -1,4 +1,10 @@
Revision history for Perl extension NetAddr::IP::Util
+
+1.36 Sat Feb 19 10:04:00 PST 2011
+ correction to use of package lexicals
+
+ thanks to mishikal at yahoo.com for spotting the bug and to
+ Mark Martinec mark.martinec+ama... at ijs.si for the solution.
1.35 Tue Nov 16 16:28:37 PST 2010
naip_gethostbyname modified to return undef instead of
Modified: branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Util.pm?rev=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Util.pm (original)
+++ branches/upstream/libnetaddr-ip-perl/current/Lite/Util/Util.pm Mon Feb 21 15:20:56 2011
@@ -13,7 +13,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = do { my @r = (q$Revision: 1.35 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.36 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
@EXPORT_OK = qw(
inet_aton
@@ -114,9 +114,11 @@
}
# allow user to choose upper or lower case
-
-my $n2x_format = "%X:%X:%X:%X:%X:%X:%X:%X";
-my $n2d_format = "%X:%X:%X:%X:%X:%X:%D.%D.%D.%D";
+BEGIN {
+ use vars qw($n2x_format $n2d_format);
+ $n2x_format = "%X:%X:%X:%X:%X:%X:%X:%X";
+ $n2d_format = "%X:%X:%X:%X:%X:%X:%D.%D.%D.%D";
+}
sub upper { $n2x_format = uc($n2x_format); $n2d_format = uc($n2d_format); }
sub lower { $n2x_format = lc($n2x_format); $n2d_format = lc($n2d_format); }
@@ -473,6 +475,7 @@
sub inet_n2dx($) {
my($nadr) = @_;
if (isIPv4($nadr)) {
+ local $1;
ipv6_n2d($nadr) =~ /([^:]+)$/;
return $1;
}
@@ -494,6 +497,7 @@
my($nadr) = @_;
my $addr = ipv6_n2d($nadr);
return $addr unless isIPv4($nadr);
+ local $1;
$addr =~ /([^:]+)$/;
return $1;
}
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=69235&op=diff
==============================================================================
--- branches/upstream/libnetaddr-ip-perl/current/META.yml (original)
+++ branches/upstream/libnetaddr-ip-perl/current/META.yml Mon Feb 21 15:20:56 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: NetAddr-IP
-version: 4.039
+version: 4.040
abstract: Manages IPv4 and IPv6 addresses and subnets
license: ~
author:
More information about the Pkg-perl-cvs-commits
mailing list