diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-09-04 14:32:19 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-04 14:32:19 +0000 |
| commit | 9a40e66e872a7a734ef292101c7b4b4c67efeb57 (patch) | |
| tree | f22187d6df150af116b77df18abc5d5a48ad5bc8 /ext/DB_File/DB_File.xs | |
| parent | f1fe7cd8d55c1ae5d8eb7941f9867b98a42e85ba (diff) | |
| download | perl-9a40e66e872a7a734ef292101c7b4b4c67efeb57.tar.gz | |
#17836 (DB_File-1.805) misses a couple of dTHX declarations
p4raw-id: //depot/perl@17844
Diffstat (limited to 'ext/DB_File/DB_File.xs')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index fba8dede79..7aa5b9a73a 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -774,6 +774,7 @@ const char * db_errpfx; char * buffer; #endif { + dTHX; SV * sv = perl_get_sv(ERR_BUFF, FALSE) ; if (sv) { if (db_errpfx) @@ -1455,6 +1456,7 @@ INCLUDE: constants.xs BOOT: { + dTHX; SV * sv_err = perl_get_sv(ERR_BUFF, GV_ADD|GV_ADDMULTI) ; MY_CXT_INIT; __getBerkeleyDBInfo() ; |