diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-11 09:09:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-11 09:09:16 +0000 |
| commit | caa0600b4c83a09cb365bc88dbf54f31a5992f3c (patch) | |
| tree | 8ba9808a76ff74ee7d567d80484d8cae0888f079 /ext/GDBM_File | |
| parent | 41cd373618dfb8cfe39ec8169c4a1b162678c980 (diff) | |
| download | perl-caa0600b4c83a09cb365bc88dbf54f31a5992f3c.tar.gz | |
GDBM tweak
p4raw-id: //depot/perl@3532
Diffstat (limited to 'ext/GDBM_File')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 2 | ||||
| -rw-r--r-- | ext/GDBM_File/typemap | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs index 275c509698..9cd71ce786 100644 --- a/ext/GDBM_File/GDBM_File.xs +++ b/ext/GDBM_File/GDBM_File.xs @@ -54,7 +54,7 @@ not_here(char *s) * perl free() it when it deallocates the SV, depending on whether * perl uses malloc()/free() or not. */ static void -output_datum(SV *arg, char *str, int size) +output_datum(pTHX_ SV *arg, char *str, int size) { #if !defined(MYMALLOC) || (defined(MYMALLOC) && defined(PERL_POLLUTE_MALLOC)) sv_usepvn(arg, str, size); diff --git a/ext/GDBM_File/typemap b/ext/GDBM_File/typemap index 20d5cd99bd..4f79ae3e32 100644 --- a/ext/GDBM_File/typemap +++ b/ext/GDBM_File/typemap @@ -23,10 +23,10 @@ T_DATUM_V $var.dsize = (int)PL_na; OUTPUT T_DATUM_K - output_datum($arg, $var.dptr, $var.dsize); + output_datum(aTHX_ $arg, $var.dptr, $var.dsize); ckFilter($arg, filter_fetch_key,\"filter_fetch_key\"); T_DATUM_V - output_datum($arg, $var.dptr, $var.dsize); + output_datum(aTHX_ $arg, $var.dptr, $var.dsize); ckFilter($arg, filter_fetch_value,\"filter_fetch_value\"); T_PTROBJ sv_setref_pv($arg, dbtype, (void*)$var); |