diff options
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/typemap | 6 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 3 |
2 files changed, 4 insertions, 5 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 03ba050d1e..01e6e8347b 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -92,7 +92,7 @@ T_LONG T_U_LONG $var = (unsigned long)SvIV($arg) T_CHAR - $var = (char)*SvPV($arg,na) + $var = (char)*SvPV($arg,PL_na) T_U_CHAR $var = (unsigned char)SvIV($arg) T_FLOAT @@ -102,7 +102,7 @@ T_NV T_DOUBLE $var = (double)SvNV($arg) T_PV - $var = ($type)SvPV($arg,na) + $var = ($type)SvPV($arg,PL_na) T_PTR $var = ($type)SvIV($arg) T_PTRREF @@ -158,7 +158,7 @@ T_REFOBJ T_OPAQUE $var NOT IMPLEMENTED T_OPAQUEPTR - $var = ($type)SvPV($arg,na) + $var = ($type)SvPV($arg,PL_na) T_PACKED $var = XS_unpack_$ntype($arg) T_PACKEDARRAY diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 484b5778f8..523dabceca 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1305,8 +1305,7 @@ if (@BootCode) } print Q<<"EOF";; -# ST(0) = &sv_yes; -# XSRETURN(1); +# XSRETURN_YES; #]] # EOF |