Subject: perl for NetBSD-1.3H alpha
To: None <port-alpha@netbsd.org>
From: Matthew Jacob <mjacob@feral.com>
List: port-alpha
Date: 11/10/1998 10:51:04
and probably others... I dunno if the pkg stuff works or whether there's
a newer perl, but here's a patch for perl perl-5.004_04:

*** perl5.004_04/doio.c.ORIG	Tue Nov 10 10:42:14 1998
--- perl5.004_04/doio.c	Tue Nov 10 10:45:36 1998
***************
*** 1333,1339 ****
      char *a;
      I32 id, n, cmd, infosize, getinfo;
      I32 ret = -1;
! #ifdef __linux__	/* XXX Need metaconfig test */
      union semun unsemds;
  #endif
  
--- 1333,1339 ----
      char *a;
      I32 id, n, cmd, infosize, getinfo;
      I32 ret = -1;
! #if	defined(__linux__) || defined(__NetBSD__)	/* XXX Need metaconfig test */
      union semun unsemds;
  #endif
  
***************
*** 1365,1371 ****
  	else if (cmd == GETALL || cmd == SETALL)
  	{
  	    struct semid_ds semds;
! #ifdef __linux__	/* XXX Need metaconfig test */
  /* linux (and Solaris2?) uses :
     int semctl (int semid, int semnum, int cmd, union semun arg)
         union semun {
--- 1365,1371 ----
  	else if (cmd == GETALL || cmd == SETALL)
  	{
  	    struct semid_ds semds;
! #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,1431 ****
  #endif
  #ifdef HAS_SEM
      case OP_SEMCTL:
! #ifdef __linux__	/* XXX Need metaconfig test */
          unsemds.buf = (struct semid_ds *)a;
  	ret = semctl(id, n, cmd, unsemds);
  #else
--- 1425,1431 ----
  #endif
  #ifdef HAS_SEM
      case OP_SEMCTL:
! #if	defined(__linux__) || defined(__NetBSD__)	/* XXX Need metaconfig test */
          unsemds.buf = (struct semid_ds *)a;
  	ret = semctl(id, n, cmd, unsemds);
  #else