split() not longer implicitly assigns its results to @_.

This functionality was deprecated some time ago and as of perl 5.12.2
is unsupported.

net/slirp/Makefile

@@ -1,10 +1,10 @@
-# $OpenBSD: Makefile,v 1.20 2010/07/12 22:07:42 sthen Exp $
+# $OpenBSD: Makefile,v 1.21 2010/09/24 15:16:20 millert Exp $
 
 COMMENT=	SLIP/CSLIP emulator for users with shell accounts
 
 V=		1.0c
 DISTNAME=	slirp-${V}
-REVISION=	1
+REVISION=	2
 CATEGORIES=	net
 MASTER_SITES=	${MASTER_SITE_BACKUP}
 

net/slirp/patches/patch-mkpro

@@ -0,0 +1,13 @@
+$OpenBSD: patch-mkpro,v 1.1 2010/09/24 15:16:20 millert Exp $
+--- mkpro.orig	Wed Sep 13 04:55:36 1995
++++ mkpro	Fri Sep 17 10:27:16 2010
+@@ -87,7 +87,8 @@ STATE0:
+ 		$1 =~ /([^\*]+)/;	# Remove "*"
+ 		$type = $1;
+ 		
+-		$n = split(/,/);
++		@_ = split(/,/, $_);
++		$n = int(@_);
+ 		$nargs += $n;
+ 		goto STATE0 if ($nargs > $nargs_guess);
+