Change 11621 by jhi@alpha on 2001/08/09 13:31:20
Subject: [PATCH] remove PL_na from typemap
From: James <[EMAIL PROTECTED]>
Date: Mon, 06 Aug 2001 20:23:15 -0700
Message-ID: <[EMAIL PROTECTED]>
(had to be manually applied)
Affected files ...
... //depot/perl/lib/ExtUtils/typemap#27 edit
Differences ...
==== //depot/perl/lib/ExtUtils/typemap#27 (text) ====
Index: perl/lib/ExtUtils/typemap
--- perl/lib/ExtUtils/typemap.~1~ Thu Aug 9 07:45:06 2001
+++ perl/lib/ExtUtils/typemap Thu Aug 9 07:45:06 2001
@@ -99,7 +99,7 @@
T_U_LONG
$var = (unsigned long)SvUV($arg)
T_CHAR
- $var = (char)*SvPV($arg,PL_na)
+ $var = (char)*SvPV_nolen($arg)
T_U_CHAR
$var = (unsigned char)SvUV($arg)
T_FLOAT
@@ -109,7 +109,7 @@
T_DOUBLE
$var = (double)SvNV($arg)
T_PV
- $var = ($type)SvPV($arg,PL_na)
+ $var = ($type)SvPV_nolen($arg)
T_PTR
$var = INT2PTR($type,SvIV($arg))
T_PTRREF
@@ -163,9 +163,9 @@
else
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
T_OPAQUE
- $var = *($type *)SvPV($arg,PL_na)
+ $var = *($type *)SvPV_nolen($arg)
T_OPAQUEPTR
- $var = ($type)SvPV($arg,PL_na)
+ $var = ($type)SvPV_nolen($arg)
T_PACKED
$var = XS_unpack_$ntype($arg)
T_PACKEDARRAY
End of Patch.
