From c023bc86c40acfdc3cc1493ee94a07dc1cb3ae0a Mon Sep 17 00:00:00 2001
From: mycroft <mycroft>
Date: Thu, 23 Apr 1998 12:14:25 +0000
Subject: Pass the right argument type to semctl().

---
 lang/perl5/patches/patch-ag | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 lang/perl5/patches/patch-ag

diff --git a/lang/perl5/patches/patch-ag b/lang/perl5/patches/patch-ag
new file mode 100644
index 00000000000..3319faf9d48
--- /dev/null
+++ b/lang/perl5/patches/patch-ag
@@ -0,0 +1,29 @@
+--- doio.c.orig	Mon Jul 28 21:08:11 1997
++++ doio.c	Thu Apr 23 08:09:19 1998
+@@ -1333,7 +1333,7 @@
+     char *a;
+     I32 id, n, cmd, infosize, getinfo;
+     I32 ret = -1;
+-#ifdef __linux__	/* XXX Need metaconfig test */
++#if defined(__linux__) || defined(__NetBSD__)	/* XXX Need metaconfig test */
+     union semun unsemds;
+ #endif
+ 
+@@ -1365,7 +1365,7 @@
+ 	else if (cmd == GETALL || cmd == SETALL)
+ 	{
+ 	    struct semid_ds semds;
+-#ifdef __linux__	/* XXX Need metaconfig test */
++#if defined(__linux__) || defined(__NetBSD__)	/* XXX Need metaconfig test */
+ /* linux (and Solaris2?) uses :
+    int semctl (int semid, int semnum, int cmd, union semun arg)
+        union semun {
+@@ -1425,7 +1425,7 @@
+ #endif
+ #ifdef HAS_SEM
+     case OP_SEMCTL:
+-#ifdef __linux__	/* XXX Need metaconfig test */
++#if defined(__linux__) || defined(__NetBSD__)	/* XXX Need metaconfig test */
+         unsemds.buf = (struct semid_ds *)a;
+ 	ret = semctl(id, n, cmd, unsemds);
+ #else
-- 
cgit v1.2.3