This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove PL_na from typemap
authorJames <james@rf.net>
Mon, 6 Aug 2001 20:23:15 +0000 (13:23 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 9 Aug 2001 13:31:20 +0000 (13:31 +0000)
Message-ID: <3B6F5F23.A31A81B1@rf.net>

(had to be manually applied)

p4raw-id: //depot/perl@11621

lib/ExtUtils/typemap

index bce6227..8377bd7 100644 (file)
@@ -99,7 +99,7 @@ T_LONG
 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_NV
 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 @@ T_REFOBJ
        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