diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-22 17:00:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-22 17:00:24 +0000 |
| commit | bfd025d94e67a140ec0eeee79dfcef213d537327 (patch) | |
| tree | 30474f4613349a3cd9ae40f5ed51ab0628239375 /ext/ODBM_File | |
| parent | d3f5e39945c1adca90422be3853d860ba9478c11 (diff) | |
| download | perl-bfd025d94e67a140ec0eeee79dfcef213d537327.tar.gz | |
Exterminate PL_na! Exterminate! Exterminate! Exterminate!
p4raw-id: //depot/perl@32704
Diffstat (limited to 'ext/ODBM_File')
| -rw-r--r-- | ext/ODBM_File/typemap | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/ext/ODBM_File/typemap b/ext/ODBM_File/typemap index cbc89b04b7..e4d8596a10 100644 --- a/ext/ODBM_File/typemap +++ b/ext/ODBM_File/typemap @@ -16,26 +16,31 @@ 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; +3B DBM_ckFilter($arg, filter_store_key, \"filter_store_key\"); + $var.dptr = SvPVbyte($arg, len); + $var.dsize = (int)len; + } T_DATUM_K_C { SV * tmpSV ; + STRLEN len; if (db->filter_store_key){ tmpSV = sv_2mortal(newSVsv($arg)); DBM_ckFilter(tmpSV, filter_store_key, \"filter_store_key\"); } else tmpSV = $arg; - $var.dptr = SvPVbyte(tmpSV, PL_na); - $var.dsize = (int)PL_na; + $var.dptr = SvPVbyte(tmpSV, 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 = \"\"; |