--- perl-5.6.1/ext/NDBM_File/NDBM_File.xs~	Sat Mar  3 20:53:20 2001
+++ perl-5.6.1/ext/NDBM_File/NDBM_File.xs	Fri Apr 20 18:23:37 2001
@@ -6,7 +6,8 @@
  * See also INSTALL section on DB3.
  * -- Stanislav Brabec <utx@penguin.cz> */
 #undef ENTER
-#include <ndbm.h>
+#define DB_DBM_HSEARCH 1
+#include <db.h>
 
 typedef struct {
 	DBM * 	dbp ;
--- perl-5.6.1/ext/NDBM_File/Makefile.PL~	Fri Apr 20 18:16:55 2001
+++ perl-5.6.1/ext/NDBM_File/Makefile.PL	Fri Apr 20 18:33:48 2001
@@ -1,8 +1,8 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME	=> 'NDBM_File',
-    LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
-    CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
+    LIBS => ["-L/usr/local/lib -ldb-4.1"],
+    CCFLAGS => '-Dbool=char -DHAS_BOOL',
     MAN3PODS 	=> {}, 	# Pods will be built by installman.
     XSPROTOARG => '-noprototypes', 		# XXX remove later?
     VERSION_FROM => 'NDBM_File.pm',
--- perl-5.6.1/ext/DB_File/DB_File.xs~	Fri Feb 23 02:57:54 2001
+++ perl-5.6.1/ext/DB_File/DB_File.xs	Thu Oct 17 18:55:01 2002
@@ -1318,6 +1318,7 @@
     {
         int	 	Flags = 0 ;
         int		status ;
+		DB_TXN * txnid = NULL;
 
         /* Map 1.x flags to 3.x flags */
         if ((flags & O_CREAT) == O_CREAT)
@@ -1335,7 +1336,7 @@
             Flags |= DB_TRUNCATE ;
 #endif
 
-        status = (RETVAL->dbp->open)(RETVAL->dbp, name, NULL, RETVAL->type, 
+        status = (RETVAL->dbp->open)(RETVAL->dbp, txnid, name, NULL, RETVAL->type, 
 	    			Flags, mode) ; 
 	/* printf("open returned %d %s\n", status, db_strerror(status)) ; */