: perlguts.pod

From: "John P. Linderman" <jpl@research.att.com>
Message-Id: <200703271633.l2RGXd3u3443680@raptor.research.att.com>

p4raw-id: //depot/perl@30775

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 3a40e68..e1b3809 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -2056,9 +2056,9 @@ your Foo.xs:
         #include "perl.h"
         #include "XSUB.h"
 
-        static my_private_function(int arg1, int arg2);
+        STATIC void my_private_function(int arg1, int arg2);
 
-        static SV *
+        STATIC void
         my_private_function(int arg1, int arg2)
         {
             dTHX;       /* fetch context */
@@ -2096,9 +2096,9 @@ the Perl guts:
         #include "XSUB.h"
 
         /* pTHX_ only needed for functions that call Perl API */
-        static my_private_function(pTHX_ int arg1, int arg2);
+        STATIC void my_private_function(pTHX_ int arg1, int arg2);
 
-        static SV *
+        STATIC void
         my_private_function(pTHX_ int arg1, int arg2)
         {
             /* dTHX; not needed here, because THX is an argument */