diff --git a/Changes b/Changes index b17c964..a1915e5 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP +4.043 Wed Apr 6 11:31:19 PDT 2011 + Update documentation on the use of "adding constants + to an IP address". + 4.042 Tue Mar 22 15:26:02 PDT 2011 Update Lite.pm v1.27 to encompass treatment of /31 and /127 point-to-point networks as described in RFC 3021 diff --git a/IP.pm b/IP.pm index fe4443c..760b0ee 100644 --- a/IP.pm +++ b/IP.pm @@ -34,7 +34,7 @@ @ISA = qw(Exporter NetAddr::IP::Lite); -$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.42 $ =~ /\d+/g) }; +$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.43 $ =~ /\d+/g) }; =pod @@ -271,7 +271,7 @@ This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: - print NetAddr::IP::Lite->new('127.0.0.1') + 5; + print NetAddr::IP::Lite->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: diff --git a/Lite/Changes b/Lite/Changes index e77bf05..1b37321 100644 --- a/Lite/Changes +++ b/Lite/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension NetAddr::IP::Lite +1.28 Wed Apr 6 11:31:19 PDT 2011 + Update documentation on the use of "adding constants + to an IP address". + 1.27 Tue Mar 22 15:26:02 PDT 2011 Update Lite.pm to encompass treatment of /31 and /127 point-to-point networks as described in RFC 3021 diff --git a/Lite/Lite.pm b/Lite/Lite.pm index 8b57be0..d2f5fc7 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.27 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.28 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Exporter; @@ -352,7 +352,7 @@ This operation changes the address part to point so many hosts above the current objects start address. For instance, this code: - print NetAddr::IP::Lite->new('127.0.0.1') + 5; + print NetAddr::IP::Lite->new('127.0.0.1/8') + 5; will output 127.0.0.6/8. The address will wrap around at the broadcast back to the network address. This code: diff --git a/META.yml b/META.yml index 095cca9..7f77f5b 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: NetAddr-IP -version: 4.042 +version: 4.043 abstract: Manages IPv4 and IPv6 addresses and subnets license: ~ author: