diff options
| author |   millert <millert@openbsd.org> | 2004-04-07 21:32:56 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2004-04-07 21:32:56 +0000 |
| commit | 09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb (patch) | |
| tree | 5f5d158a4aece7aef6cb3cd6d3f9f73efe1fea63 /gnu/usr.bin/perl/ext/GDBM_File | |
| parent | perl 5.8.3 from CPAN (diff) | |
| download | wireguard-openbsd-09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb.tar.xz wireguard-openbsd-09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb.zip | |
merge local changes into perl-5.8.3
Diffstat (limited to 'gnu/usr.bin/perl/ext/GDBM_File')
| -rw-r--r-- | gnu/usr.bin/perl/ext/GDBM_File/typemap | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/ext/GDBM_File/typemap b/gnu/usr.bin/perl/ext/GDBM_File/typemap index 048f0dd11cc..8c7cb45b462 100644 --- a/gnu/usr.bin/perl/ext/GDBM_File/typemap +++ b/gnu/usr.bin/perl/ext/GDBM_File/typemap @@ -3,7 +3,7 @@ # datum_key T_DATUM_K -datum_key_copy T_DATUM_K_C +datum_key_copy T_DATUM_K datum_value T_DATUM_V NDBM_File T_PTROBJ GDBM_File T_PTROBJ @@ -16,7 +16,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 { @@ -27,13 +27,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 { |