diff --git a/Changes b/Changes index 8d425a3..316a789 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP +4.058 Fri Nov 11 19:23:11 PST 2011 + up rev for documentation update + update documentation in InetBase v0.06 + 4.057 Fri Nov 11 15:04:20 PST 2011 Lite.pm v1.40 add call to InetBase::fillIPv4 to all uses of gethostbyname diff --git a/IP.pm b/IP.pm index b5a08d9..f5eccd8 100644 --- a/IP.pm +++ b/IP.pm @@ -4,8 +4,8 @@ use strict; #use diagnostics; -use NetAddr::IP::Lite 1.38 qw(Zero Zeros Ones V4mask V4net); -use NetAddr::IP::Util 1.43 qw( +use NetAddr::IP::Lite 1.41 qw(Zero Zeros Ones V4mask V4net); +use NetAddr::IP::Util 1.46 qw( sub128 inet_aton inet_any2n @@ -35,7 +35,7 @@ @ISA = qw(Exporter NetAddr::IP::Lite); -$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.57 $ =~ /\d+/g) }; +$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.58 $ =~ /\d+/g) }; =pod diff --git a/Lite/Changes b/Lite/Changes index 143e77e..c0d9620 100644 --- a/Lite/Changes +++ b/Lite/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP::Lite +1.41 Fri Nov 11 19:23:11 PST 2011 + up rev for documentation update + update documentation in InetBase v0.06 + 1.40 Fri Nov 11 13:20:32 PST 2011 add call to InetBase::fillIPv4 to all uses of gethostbyname diff --git a/Lite/Lite.pm b/Lite/Lite.pm index 1c66072..38b3bd0 100644 --- a/Lite/Lite.pm +++ b/Lite/Lite.pm @@ -32,7 +32,7 @@ use vars qw(@ISA @EXPORT_OK $VERSION $Accept_Binary_IP $Old_nth $AUTOLOAD *Zero); -$VERSION = do { my @r = (q$Revision: 1.40 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.41 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Exporter; diff --git a/Lite/Util/Changes b/Lite/Util/Changes index f3f2bff..e57530f 100644 --- a/Lite/Util/Changes +++ b/Lite/Util/Changes @@ -1,3 +1,6 @@ +1.46 Fri Nov 11 19:23:11 PST 2011 + update documentation in InetBase v0.06 + 1.45 Fri Nov 11 13:20:32 PST 2011 break out the code in InetBase v0.05 that expands short IPv4 addresses into dotquad format to account for broken BSD diff --git a/Lite/Util/Util.pm b/Lite/Util/Util.pm index ee4ea5c..e328902 100644 --- a/Lite/Util/Util.pm +++ b/Lite/Util/Util.pm @@ -21,7 +21,7 @@ @ISA = qw(Exporter DynaLoader); -$VERSION = do { my @r = (q$Revision: 1.45 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.46 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton diff --git a/Lite/Util/lib/NetAddr/IP/InetBase.pm b/Lite/Util/lib/NetAddr/IP/InetBase.pm index 3e4a1f2..58a07da 100644 --- a/Lite/Util/lib/NetAddr/IP/InetBase.pm +++ b/Lite/Util/lib/NetAddr/IP/InetBase.pm @@ -11,7 +11,7 @@ @ISA = qw(Exporter); -$VERSION = do { my @r = (q$Revision: 0.05 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 0.06 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton @@ -307,11 +307,12 @@ AF_INET AF_INET6 fake_AF_INET6 + fillIPv4 ); use NetAddr::IP::Util qw(:all :inet :ipv4 :ipv6 :math) - :ipv4 => inet_aton, inet_ntoa + :ipv4 => inet_aton, inet_ntoa, fillIPv4 :ipv6 => ipv6_aton, ipv6_ntoa,ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad @@ -335,6 +336,7 @@ $constant = AF_INET(); $constant = AF_INET6(); $trueif = fake_AF_INET6(); + $ip_filled = fillIPv4($shortIP); NetAddr::IP::InetBase::lower(); NetAddr::IP::InetBase::upper(); diff --git a/META.yml b/META.yml index 5624083..c665329 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: NetAddr-IP -version: 4.057 +version: 4.058 abstract: Manages IPv4 and IPv6 addresses and subnets license: ~ author: