diff options
Diffstat (limited to 'ext/GDBM_File/GDBM_File.xs')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 2 |
1 files changed, 1 insertions, 1 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); |