[PATCH] HPUX + GCC

I propose the following patch, see if it works for you Merijn.

(If it wraps lines, it is also attached)

Arthur



==== //depot/perl/ext/Socket/Socket.xs#37 -
/home/artur/perl/p4/ext/Socket/Socket.xs ====
--- /tmp/tmp.25047.0    Wed Aug 29 15:56:36 2001
+++ /home/artur/perl/p4/ext/Socket/Socket.xs    Wed Aug 29 15:55:22 2001
@@ -221,8 +221,13 @@
     }
 
     Copy( ip_address, &addr, sizeof addr, char );
+#if defined(__hpux) && defined(__ux_version) && __ux_version <= 1100 &&
CC==gcc
+        /* GCC on HP_UX breaks the call to inet_ntoa */
+    addr_str = (char *) malloc(16);
+    sprintf(addr_str, "%d.%d.%d.%d", (addr.s_addr & 0xFF) , ((addr.s_addr
>> 8) & 0xFF), ((addr.s_addr >> 16) & 0xFF), ((addr.s_addr >> 24) & 0xFF));
+#else
     addr_str = inet_ntoa(addr);
-
+#endif
     ST(0) = sv_2mortal(newSVpvn(addr_str, strlen(addr_str)));
     }
 


-- 
Arthur

• [PATCH] HPUX + GCC by Arthur Bergman
• Re: [PATCH] HPUX + GCC by H . Merijn Brand