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

[hv]

Change 17844 by [EMAIL PROTECTED] on 2002/09/04 14:32:19

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

Affected files ...

.... //depot/perl/ext/DB_File/DB_File.xs#60 edit

Differences ...

==== //depot/perl/ext/DB_File/DB_File.xs#60 (text) ====
Index: perl/ext/DB_File/DB_File.xs
--- perl/ext/DB_File/DB_File.xs#59~17836~       Wed Sep  4 06:35:36 2002
+++ perl/ext/DB_File/DB_File.xs Wed Sep  4 07:32:19 2002
@@ -774,6 +774,7 @@
 char * buffer;
 #endif
 {
+    dTHX;
     SV * sv = perl_get_sv(ERR_BUFF, FALSE) ;
     if (sv) {
         if (db_errpfx)
@@ -1455,6 +1456,7 @@
 
 BOOT:
   {
+    dTHX;
     SV * sv_err = perl_get_sv(ERR_BUFF, GV_ADD|GV_ADDMULTI) ;    
     MY_CXT_INIT;
     __getBerkeleyDBInfo() ;
End of Patch.