Received: (at maintonly) by bugs.debian.org; 7 Apr 1997 17:40:14 +0000 Received: (qmail 30763 invoked from network); 7 Apr 1997 17:40:12 -0000 Received: from ns1.waw.com (HELO odin.waw.com) (vincent@194.51.88.250) by master.debian.org with SMTP; 7 Apr 1997 17:40:10 -0000 Received: (from vincent@localhost) by odin.waw.com (8.7.3/8.7.3/waw) id TAA13009; Mon, 7 Apr 1997 19:41:42 +0100 Date: Mon, 7 Apr 1997 19:41:42 +0100 (GMT+0100) From: Vincent Renardias <vincent@waw.com> To: maintonly@bugs.debian.org Subject: A glibc patch for perl 5.003 (fwd) Message-ID: <Pine.LNX.3.91.970407194106.11201G-100000@odin.waw.com> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Package: perl Version: 5.003 -- - ** Linux ** +-------------------+ ** WAW ** - - vincent@debian.org | RENARDIAS Vincent | vincent@waw.com - - Debian/GNU Linux +-------------------+ http://www.waw.com/ - - http://www.debian.org/ | WAW (33) 4 91 81 21 45 - - | Luminy (33) 4 91 82 85 32 - --------------------------------------------------------------------------- ---------- Forwarded message ---------- Date: Sun, 6 Apr 1997 13:59:17 -0700 (PDT) From: H.J. Lu <hjl@lucon.org> To: debian <debian-devel@Pixar.com> Subject: A glibc patch for perl 5.003 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