#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 (file)
--- 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() ;