diff --git a/Changes b/Changes index 440d80f..581d00d 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP +4.033 Wed Sep 29 10:32:50 PDT 2010 + Conditionalize import of AF_INET6 in Util.pm + NetAddr::IP::UtilPolluted + 4.032 Wed Sep 22 13:39:08 PDT 2010 Added overload => 'ne' and '!=' to Lite.pm v1.18 diff --git a/IP.pm b/IP.pm index 1b6deba..347d195 100644 --- a/IP.pm +++ b/IP.pm @@ -4,8 +4,8 @@ use strict; #use diagnostics; -use NetAddr::IP::Lite 1.18 qw(Zero Zeros Ones V4mask V4net); -use NetAddr::IP::Util 1.33 qw( +use NetAddr::IP::Lite 1.19 qw(Zero Zeros Ones V4mask V4net); +use NetAddr::IP::Util 1.34 qw( sub128 inet_aton inet_any2n @@ -34,7 +34,7 @@ @ISA = qw(Exporter NetAddr::IP::Lite); -$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.32 $ =~ /\d+/g) }; +$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.33 $ =~ /\d+/g) }; =pod diff --git a/Lite/Changes b/Lite/Changes index 464e4c6..ffdd19c 100644 --- a/Lite/Changes +++ b/Lite/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP::Lite +1.19 Wed Sep 29 10:32:50 PDT 2010 + Conditionalize import of AF_INET6 in Util.pm + NetAddr::IP::UtilPolluted + 1.18 Wed Sep 22 13:39:08 PDT 2010 Added overload => 'ne' and '!=' to Lite.pm diff --git a/Lite/Lite.pm b/Lite/Lite.pm index b68eee5..8886818 100644 --- a/Lite/Lite.pm +++ b/Lite/Lite.pm @@ -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.18 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.19 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Exporter; diff --git a/Lite/Util/Changes b/Lite/Util/Changes index 5943fde..b809134 100644 --- a/Lite/Util/Changes +++ b/Lite/Util/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP::Util +1.34 Wed Sep 29 10:32:50 PDT 2010 + Conditionalize import of AF_INET6 in Util.pm + NetAddr::IP::UtilPolluted + 1.33 Tue Sep 21 17:50:50 PDT 2010 Add UtilPolluted namespace to contain name space pollution created by "use Socket" when invoking Socket6. diff --git a/Lite/Util/Util.pm b/Lite/Util/Util.pm index da3a11b..d0c6b8d 100644 --- a/Lite/Util/Util.pm +++ b/Lite/Util/Util.pm @@ -13,7 +13,7 @@ @ISA = qw(Exporter DynaLoader); -$VERSION = do { my @r = (q$Revision: 1.33 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.34 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton @@ -177,7 +177,9 @@ return &_end_gethostbyname($tip); }; } else { - import Socket6 qw( gethostbyname2 AF_INET6 ); + import Socket6 qw( gethostbyname2 ); + import Socket6 qw( AF_INET6 ) + unless eval { &AF_INET6 }; my $tip; $mygethostbyname = sub { unless ($tip = gethostbyname2($_[0],&AF_INET6)) { diff --git a/META.yml b/META.yml index c1e7221..f02eec9 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: NetAddr-IP -version: 4.032 +version: 4.033 abstract: Manages IPv4 and IPv6 addresses and subnets license: ~ author: