diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-02 15:55:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-02 15:55:25 +0000 |
| commit | 77004dee2553ce034a8a58b2b2849e3656df46c3 (patch) | |
| tree | 5c6f226952cfe75df4a5ef743bc577879e0642b3 /XSUB.h | |
| parent | 284edc75255273afc54ce4bfa99576ccc7d34c45 (diff) | |
| download | perl-77004dee2553ce034a8a58b2b2849e3656df46c3.tar.gz | |
Fix bug in DynaLoader, which has been passing a filename in dynamic
storage to newXS() seemingly forever. This involves creating
newXS_flags(), with the first flag being "arrange to copy the
filename and free it at the right time".
p4raw-id: //depot/perl@28063
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -273,7 +273,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. #define XSRETURN_UNDEF STMT_START { XST_mUNDEF(0); XSRETURN(1); } STMT_END #define XSRETURN_EMPTY STMT_START { XSRETURN(0); } STMT_END -#define newXSproto(a,b,c,d) sv_setpv((SV*)newXS(a,b,c), d) +#define newXSproto(a,b,c,d) newXS_flags(a,b,c,d,0) #ifdef XS_VERSION # define XS_VERSION_BOOTCHECK \ |