r28473 - in /trunk/libnetaddr-ip-perl: Changes IP.pm Lite/Util/Changes Lite/Util/Makefile.PL Lite/Util/Util.pm Lite/Util/Util.xs META.yml debian/changelog
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Dec 21 22:58:29 UTC 2008
Author: gregoa
Date: Sun Dec 21 22:58:26 2008
New Revision: 28473
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28473
Log:
New upstream release.
Modified:
trunk/libnetaddr-ip-perl/Changes
trunk/libnetaddr-ip-perl/IP.pm
trunk/libnetaddr-ip-perl/Lite/Util/Changes
trunk/libnetaddr-ip-perl/Lite/Util/Makefile.PL
trunk/libnetaddr-ip-perl/Lite/Util/Util.pm
trunk/libnetaddr-ip-perl/Lite/Util/Util.xs
trunk/libnetaddr-ip-perl/META.yml
trunk/libnetaddr-ip-perl/debian/changelog
Modified: trunk/libnetaddr-ip-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Changes?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Changes (original)
+++ trunk/libnetaddr-ip-perl/Changes Sun Dec 21 22:58:26 2008
@@ -1,4 +1,12 @@
Revision history for Perl extension NetAddr::IP
+
+4.022
+ In Util.xs 1.28
+ set uninitialized "carry" in XS bin2bcd to zero
+
+ This insidious bug only showed up on 64 bit hosts running perl 5.6.2
+ Thanks to Oliver Paukstadt <pstadt at sourcentral.org> for taking the
+ time to do the testing for me on his s390 system.
4.021 Wed Dec 10 11:09:36 PST 2008
Removed test code that produces a warning about all perl versions,
Modified: trunk/libnetaddr-ip-perl/IP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/IP.pm?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/IP.pm (original)
+++ trunk/libnetaddr-ip-perl/IP.pm Sun Dec 21 22:58:26 2008
@@ -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.27 qw(
+use NetAddr::IP::Util 1.28 qw(
sub128
inet_aton
inet_any2n
@@ -34,7 +34,7 @@
@ISA = qw(Exporter NetAddr::IP::Lite);
-$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.21 $ =~ /\d+/g) };
+$VERSION = do { sprintf " %d.%03d", (q$Revision: 4.22 $ =~ /\d+/g) };
=pod
Modified: trunk/libnetaddr-ip-perl/Lite/Util/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Util/Changes?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Util/Changes (original)
+++ trunk/libnetaddr-ip-perl/Lite/Util/Changes Sun Dec 21 22:58:26 2008
@@ -1,4 +1,7 @@
Revision history for Perl extension NetAddr::IP::Util
+
+1.28 Wed Dec 17 14:14:06 PST 2008
+ set uninitialized "carry" in XS bin2bcd to zero
1.27 Tue Dec 9 12:00:08 PST 2008
revised UtilPP v1.7 to work around perl 5.8.4
Modified: trunk/libnetaddr-ip-perl/Lite/Util/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Util/Makefile.PL?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Util/Makefile.PL (original)
+++ trunk/libnetaddr-ip-perl/Lite/Util/Makefile.PL Sun Dec 21 22:58:26 2008
@@ -211,35 +211,6 @@
$begin . $inherited;
}
-sub MY::test {
- package MY;
- my $inherited = shift->SUPER::test(@_);
- return $inherited unless $useXS;
- my @orig = split(/\n/,$inherited);
- my @txt = @orig;
- my @lines;
-
- foreach(@orig) {
- if ($_ !~ /^(?:test|testdb)_\w+/ && $_ =~ /^(test[^\s]*)\s+:/) {
- my $new = ' pp'.$1;
- $_ .= $new;
- }
- }
-
- foreach(@txt) {
- $_ =~ s/TEST_TYPE/MTEST_TYPE/g;
- next if $_ =~ /^#/ || /^TEST/;
- $_ =~ s/subdirs/ppsubdirs/g;
- $_ =~ s/test_/pptest_/g
- unless $_ =~ /harness/;
- $_ =~ s/testdb_/pptestdb_/g;
- $_ =~ s/^test/pptest/;
- $_ =~ s/([^\s]+)\$\(INST_LIB\)([^\s]+)/${1}tlib$2 $&/;
- push @lines, $_;
- }
- my $line = join("\n", at orig, at lines);
-}
-
sub MY::post_constants {
my $post_constants = q|
MY_POD2TEXT = |. $Config{scriptdirexp} .'/pod2text' .q|
Modified: trunk/libnetaddr-ip-perl/Lite/Util/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Util/Util.pm?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Util/Util.pm (original)
+++ trunk/libnetaddr-ip-perl/Lite/Util/Util.pm Sun Dec 21 22:58:26 2008
@@ -13,7 +13,7 @@
@ISA = qw(Exporter DynaLoader);
-$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 };
@EXPORT_OK = qw(
inet_aton
Modified: trunk/libnetaddr-ip-perl/Lite/Util/Util.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/Lite/Util/Util.xs?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/Lite/Util/Util.xs (original)
+++ trunk/libnetaddr-ip-perl/Lite/Util/Util.xs Sun Dec 21 22:58:26 2008
@@ -67,6 +67,50 @@
#define zero ('0' & 0x7f)
+/* useful for debug, prints the 128 bits of 8, 16 bit registers */
+void
+printb128(char * b)
+{
+ int c;
+ for(c=0;c<16;c++) {
+ if (b[c] &0x80)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x40)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x20)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x10)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x8)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x4)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x2)
+ printf("1");
+ else
+ printf("0");
+ if (b[c] &0x1)
+ printf("1");
+ else
+ printf("0");
+ if (c == 3 || c == 7 || c == 11)
+ printf("\n");
+ }
+ printf("\n\n");
+}
+
void
extendipv4(void * aa, void * ux)
{
@@ -90,8 +134,7 @@
void
fastcomp128(void * aa)
{
- register u_int32_t * a;
- a = aa;
+ register u_int32_t * a = aa;
*a++ ^= 0xffffffff;
*a++ ^= 0xffffffff;
@@ -357,7 +400,7 @@
int
_bin2bcd (unsigned char * binary, BCD * n)
{
- register u_int32_t tmp, add3, msk8, bcd8, carry;
+ register u_int32_t tmp, add3, msk8, bcd8, carry = 0;
u_int32_t word;
unsigned char binmsk = 0;
int c = 0,i, j, p;
Modified: trunk/libnetaddr-ip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/META.yml?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/META.yml (original)
+++ trunk/libnetaddr-ip-perl/META.yml Sun Dec 21 22:58:26 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: NetAddr-IP
-version: 4.021
+version: 4.022
abstract: Manages IPv4 and IPv6 addresses and subnets
license: ~
author:
Modified: trunk/libnetaddr-ip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/debian/changelog?rev=28473&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/changelog (original)
+++ trunk/libnetaddr-ip-perl/debian/changelog Sun Dec 21 22:58:26 2008
@@ -1,3 +1,9 @@
+libnetaddr-ip-perl (4.022+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sun, 21 Dec 2008 23:57:04 +0100
+
libnetaddr-ip-perl (4.021+dfsg-1) unstable; urgency=low
[ Franck Joncourt ]
More information about the Pkg-perl-cvs-commits
mailing list