File NetAddr-IP-4.004.dif of Package perl-NetAddr-IP

--- Lite/Util/Util.xs
+++ Lite/Util/Util.xs	2007/01/30 10:29:48
@@ -192,8 +192,9 @@
 #ifdef host_is_LITTLE_ENDIAN
   register u_int32_t * a = ap;
   for (/* -- */;len >0;len--) {
-    *a++ =  (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >>  8) | \
-             ((*a & 0x0000ff00) <<  8) | ((*a & 0x000000ff) << 24));
+    *a =  (((*a & 0xff000000) >> 24) | ((*a & 0x00ff0000) >>  8) | \
+           ((*a & 0x0000ff00) <<  8) | ((*a & 0x000000ff) << 24));
+    a++;
   }
 #endif
 }
@@ -259,6 +260,7 @@
   _128x2(ap);					/*	times 8			*/
   (void) adder128(ap,tp,0);
 /* printf("x  %04X:%04X:%04X:%04X\n",*((u_int32_t *)ap),*((u_int32_t *)ap +1),*((u_int32_t *)ap +2),*((u_int32_t *)ap +3)); */
+  return 0;
 }
 
 /*	multiply 128 bit number by 10, add bcd digit to result