This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.8.0: two problems
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 22 Apr 2003 11:43:17 +0000 (04:43 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 22 Apr 2003 20:53:20 +0000 (20:53 +0000)
Message-ID: <20030422184316.GA8602@math.berkeley.edu>

p4raw-id: //depot/perl@19308

XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 2278823..af91137 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -104,7 +104,7 @@ handled automatically by C<xsubpp>.
 #define dXSFUNCTION(ret)               XSINTERFACE_CVT(ret,XSFUNCTION)
 #define XSINTERFACE_FUNC(ret,cv,f)     ((XSINTERFACE_CVT(ret,))(f))
 #define XSINTERFACE_FUNC_SET(cv,f)     \
-               CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f)
+               CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f)
 
 /* Simple macros to put new mortal values onto the stack.   */
 /* Typically used to return values from XS functions.       */