A glibc patch for perl 5.003

[hjl@lucon.org (H.J. Lu)]

Here is a glibc patch for perl 5.003.

H.J.
----
--- doio.c.orig	Tue Feb 27 13:29:23 1996
+++ doio.c	Sun Apr  6 12:54:02 1997
@@ -1361,7 +1361,11 @@
 	else if (cmd == GETALL || cmd == SETALL)
 	{
 	    struct semid_ds semds;
+#if __GNU_LIBRARY__ > 1
+	    if (semctl(id, 0, IPC_STAT, (union semun) &semds) == -1)
+#else
 	    if (semctl(id, 0, IPC_STAT, &semds) == -1)
+#endif
 		return -1;
 	    getinfo = (cmd == GETALL);
 	    infosize = semds.sem_nsems * sizeof(short);
@@ -1407,7 +1411,11 @@
 #endif
 #ifdef HAS_SEM
     case OP_SEMCTL:
+#if __GNU_LIBRARY__ > 1
+	ret = semctl(id, n, cmd, (union semun) ((struct semid_ds *)a));
+#else
 	ret = semctl(id, n, cmd, (struct semid_ds *)a);
+#endif
 	break;
 #endif
 #ifdef HAS_SHM