From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 4 Sep 2002 14:32:19 +0000 (+0000)
Subject: #17836 (DB_File-1.805) misses a couple of dTHX declarations
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a40e66e872a7a734ef292101c7b4b4c67efeb57;p=p5sagit%2Fp5-mst-13.2.git

#17836 (DB_File-1.805) misses a couple of dTHX declarations

p4raw-id: //depot/perl@17844
---

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index fba8ded..7aa5b9a 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() ;