This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
: perlguts.pod
authorJohn P. Linderman <jpl@research.att.com>
Tue, 27 Mar 2007 12:33:39 +0000 (08:33 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 28 Mar 2007 08:43:10 +0000 (08:43 +0000)
From: "John P. Linderman" <jpl@research.att.com>
Message-Id: <200703271633.l2RGXd3u3443680@raptor.research.att.com>

p4raw-id: //depot/perl@30775

pod/perlguts.pod

index 3a40e68..e1b3809 100644 (file)
@@ -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 */