diff --git a/Changes b/Changes index 8640a3c..929ccae 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,15 @@ Revision history for Perl extension NetAddr::IP +4.028 Wed May 12 14:18:20 PDT 2010 + In /Lite/Util/Util.xs v1.32, + changed netswap() to postincrement + *a++ = to *a and added increment after save to mollify some + picky compilers that return possible undefined behavior. + + changed type of _128x10 to 'void' + + Thanks to David Bolt for the above two patches + 4.027 Tue Jun 9 10:31:11 PDT 2009 In NetAddr::IP::Util v1.31, ferret out shell value for Makefile.PL when calling diff --git a/IP.pm b/IP.pm index 6e1432b..9d459f1 100644 --- a/IP.pm +++ b/IP.pm @@ -5,7 +5,7 @@ use strict; #use diagnostics; use NetAddr::IP::Lite 1.13 qw(Zero Zeros Ones V4mask V4net); -use NetAddr::IP::Util 1.30 qw( +use NetAddr::IP::Util 1.32 qw( sub128 inet_aton inet_any2n @@ -34,7 +34,7 @@ @ISA = qw(Exporter NetAddr::IP::Lite); -$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.27 $ =~ /\d+/g) }; +$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.28 $ =~ /\d+/g) }; =pod @@ -1531,7 +1531,7 @@ =head1 LICENSE This software is (c) Luis E. Muñoz, 1999 - 2007, and (c) Michael -Robinton, 2006 - 2008. It can be used under the terms of the Perl +Robinton, 2006 - 2010. It can be used under the terms of the Perl artistic license provided that proper credit for the work of the authors is preserved in the form of this copyright notice and license for this module. diff --git a/Lite/Util/Changes b/Lite/Util/Changes index cf5eb08..daa1151 100644 --- a/Lite/Util/Changes +++ b/Lite/Util/Changes @@ -1,5 +1,13 @@ Revision history for Perl extension NetAddr::IP::Util +1.32 Wed May 12 14:18:20 PDT 2010 + In Util.xs, + changed netswap() to postincrement + *a++ = to *a and added increment after save to mollify some + picky compilers that return possible undefined behavior. + + changed type of _128x10 to 'void' + 1.31 Tue Jun 9 10:31:11 PDT 2009 ferret out shell value for Makefile.PL when calling ./configure for systems where the 'x' bit gets lost diff --git a/Lite/Util/README b/Lite/Util/README index 7a7c264..de7ee8d 100644 --- a/Lite/Util/README +++ b/Lite/Util/README @@ -439,7 +439,7 @@ us. COPYRIGHT - Copyright 2003 - 2008, Michael Robinton + Copyright 2003 - 2010, Michael Robinton LICENSE AND WARRANTY diff --git a/Lite/Util/Util.pm b/Lite/Util/Util.pm index 7bed6be..fd079ab 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.31 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 1.32 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; @EXPORT_OK = qw( inet_aton @@ -746,7 +746,7 @@ =head1 COPYRIGHT -Copyright 2003 - 2008, Michael Robinton Emichael@bizsystems.comE +Copyright 2003 - 2010, Michael Robinton Emichael@bizsystems.comE LICENSE AND WARRANTY diff --git a/Lite/Util/Util.xs b/Lite/Util/Util.xs index d22bcc3..9d56f0c 100644 --- a/Lite/Util/Util.xs +++ b/Lite/Util/Util.xs @@ -1,6 +1,6 @@ /* - * Copyright 2006, Michael Robinton + * Copyright 2006 - 2010, Michael Robinton * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -237,8 +237,9 @@ #ifdef host_is_LITTLE_ENDIAN register u_int32_t * a = ap; for (/* -- */;len >0;len--) { - *a++ = (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >> 8) | \ + *a = (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >> 8) | \ ((*a & 0x0000ff00) << 8) | ((*a & 0x000000ff) << 24)); + a++; } #endif } @@ -292,7 +293,7 @@ /* multiply 128 bit number X10 */ -int +void _128x10(n128 * ap128, n128 * tp128) { register u_int32_t * ap = ap128->u, * tp = tp128->u; diff --git a/META.yml b/META.yml index 9196c61..126dabd 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: NetAddr-IP -version: 4.027 +version: 4.028 abstract: Manages IPv4 and IPv6 addresses and subnets license: ~ author: