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