From: John P. Linderman <jpl@research.att.com>
Date: Tue, 27 Mar 2007 12:33:39 +0000 (-0400)
Subject: : perlguts.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd061412c8b2788b74d7b7850b97a2b1bcb19bc0;p=p5sagit%2Fp5-mst-13.2.git

: 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
--- 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 */