From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 25 Jul 1996 02:26:49 +0000 (+0000)
Subject: Correct CODE block declaration
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f13e1b2f9edd0ad9259bea67c343cb00d1d5e9e3;p=p5sagit%2Fp5-mst-13.2.git

Correct CODE block declaration
---

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 378824f..6c39557 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -649,7 +649,7 @@ pack_sockaddr_un(pathname)
 void
 unpack_sockaddr_un(sun_sv)
 	SV *	sun_sv
-	PPCODE:
+	CODE:
 	{
 #ifdef I_SYS_UN
 	STRLEN sockaddrlen;