Correct CODE block declaration
Perl 5 Porters [Thu, 25 Jul 1996 02:26:49 +0000 (02:26 +0000)]
ext/Socket/Socket.xs

index 378824f..6c39557 100644 (file)
@@ -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;