From bfd025d94e67a140ec0eeee79dfcef213d537327 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 22 Dec 2007 17:00:24 +0000
Subject: Exterminate PL_na! Exterminate! Exterminate! Exterminate!

p4raw-id: //depot/perl@32704
---
 ext/SDBM_File/typemap | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'ext/SDBM_File')

diff --git a/ext/SDBM_File/typemap b/ext/SDBM_File/typemap
index c88725bf75..a06ce81aad 100644
--- a/ext/SDBM_File/typemap
+++ b/ext/SDBM_File/typemap
@@ -15,14 +15,18 @@ FATALFUNC		T_OPAQUEPTR
 
 INPUT
 T_DATUM_K
-	DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
-	$var.dptr = SvPVbyte($arg, PL_na);
-	$var.dsize = (int)PL_na;
+	{
+	    STRLEN len;
+	    DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
+	    $var.dptr = SvPVbyte($arg, len);
+	    $var.dsize = (int)len;
+	}
 T_DATUM_V
         DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
 	if (SvOK($arg)) {
-	    $var.dptr = SvPVbyte($arg, PL_na);
-	    $var.dsize = (int)PL_na;
+	    STRLEN len;
+	    $var.dptr = SvPVbyte($arg, len);
+	    $var.dsize = (int)len;
 	}
 	else {
 	    $var.dptr = \"\";
-- 
cgit v1.2.1