diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:26:20 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:26:20 +0000 |
| commit | 483d4e680bd2a6db14835b1b4d65be33488d532b (patch) | |
| tree | 129a4c95425cb37ed928ef53a27eb7dce5de3345 /gnu/usr.bin/perl/ext/ODBM_File | |
| parent | 8757fe6728b9db37919ad703b336ebbbc84413aa (diff) | |
stock perl 5.6.1
Diffstat (limited to 'gnu/usr.bin/perl/ext/ODBM_File')
| -rw-r--r-- | gnu/usr.bin/perl/ext/ODBM_File/typemap | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/ext/ODBM_File/typemap b/gnu/usr.bin/perl/ext/ODBM_File/typemap index 7c23815ec75..096427ea7f3 100644 --- a/gnu/usr.bin/perl/ext/ODBM_File/typemap +++ b/gnu/usr.bin/perl/ext/ODBM_File/typemap @@ -20,8 +20,14 @@ T_DATUM_K $var.dsize = (int)PL_na; T_DATUM_V ckFilter($arg, filter_store_value, \"filter_store_value\"); - $var.dptr = SvPV($arg, PL_na); - $var.dsize = (int)PL_na; + if (SvOK($arg)) { + $var.dptr = SvPV($arg, PL_na); + $var.dsize = (int)PL_na; + } + else { + $var.dptr = \"\"; + $var.dsize = 0; + } T_GDATUM UNIMPLEMENTED OUTPUT |