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/DB_File | |
| parent | d3f5e39945c1adca90422be3853d860ba9478c11 (diff) | |
| download | perl-bfd025d94e67a140ec0eeee79dfcef213d537327.tar.gz | |
Exterminate PL_na! Exterminate! Exterminate! Exterminate!
p4raw-id: //depot/perl@32704
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/typemap | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ext/DB_File/typemap b/ext/DB_File/typemap index 077a95cb6f..c46b6851d7 100644 --- a/ext/DB_File/typemap +++ b/ext/DB_File/typemap @@ -29,8 +29,9 @@ T_dbtkeydatum $var.size = (int)sizeof(recno_t); } else if (SvOK(my_sv)) { - $var.data = SvPVbyte(my_sv, PL_na); - $var.size = (int)PL_na; + STRLEN len; + $var.data = SvPVbyte(my_sv, len); + $var.size = (int)len; } } T_dbtdatum @@ -40,8 +41,9 @@ T_dbtdatum DBT_clear($var) ; SvGETMAGIC(my_sv) ; if (SvOK(my_sv)) { - $var.data = SvPVbyte(my_sv, PL_na); - $var.size = (int)PL_na; + STRLEN len; + $var.data = SvPVbyte(my_sv, len); + $var.size = (int)len; } } |