From 3521e4eeb75301e7c0e043f6cf0251e1b642eaa4 Mon Sep 17 00:00:00 2001
From: James <james@rf.net>
Date: Mon, 6 Aug 2001 13:23:15 -0700
Subject: [PATCH] remove PL_na from typemap Message-ID:
 <3B6F5F23.A31A81B1@rf.net>

(had to be manually applied)

p4raw-id: //depot/perl@11621
---
 lib/ExtUtils/typemap | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index bce6227..8377bd7 100644
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -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
-- 
2.7.4