forked from pool/perl-NetAddr-IP
16 lines
488 B
Diff
16 lines
488 B
Diff
|
Index: Lite/Util/Util.xs
|
||
|
|
===================================================================
|
||
|
|
--- Lite/Util/Util.xs.orig
|
||
|
|
+++ Lite/Util/Util.xs
|
||
|
|
@@ -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
|
||
|
|
}
|