diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2003-12-27 20:02:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-27 20:14:09 +0000 |
| commit | 5bbd4290dc068a04b65fb118bd01be1ae58c7454 (patch) | |
| tree | eb159cdb5d46accf8f886aa78deed99f370e1c5a /ext/ODBM_File | |
| parent | fb8d82a27d7809423b06904bb01f8d6626a60074 (diff) | |
| download | perl-5bbd4290dc068a04b65fb118bd01be1ae58c7454.tar.gz | |
PATCH: *DB*_File
From: "Paul Marquess" <Paul.Marquess@btinternet.com>
Message-ID: <AIEAJICLCBDNAAOLLOKLIEAOPGAA.Paul.Marquess@btinternet.com>
p4raw-id: //depot/perl@21981
Diffstat (limited to 'ext/ODBM_File')
| -rw-r--r-- | ext/ODBM_File/typemap | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/ODBM_File/typemap b/ext/ODBM_File/typemap index 4f4802cfa5..cbc89b04b7 100644 --- a/ext/ODBM_File/typemap +++ b/ext/ODBM_File/typemap @@ -17,7 +17,7 @@ FATALFUNC T_OPAQUEPTR INPUT T_DATUM_K DBM_ckFilter($arg, filter_store_key, \"filter_store_key\"); - $var.dptr = SvPV($arg, PL_na); + $var.dptr = SvPVbyte($arg, PL_na); $var.dsize = (int)PL_na; T_DATUM_K_C { @@ -28,13 +28,13 @@ T_DATUM_K_C } else tmpSV = $arg; - $var.dptr = SvPV(tmpSV, PL_na); + $var.dptr = SvPVbyte(tmpSV, PL_na); $var.dsize = (int)PL_na; } T_DATUM_V DBM_ckFilter($arg, filter_store_value, \"filter_store_value\"); if (SvOK($arg)) { - $var.dptr = SvPV($arg, PL_na); + $var.dptr = SvPVbyte($arg, PL_na); $var.dsize = (int)PL_na; } else { |