1 --- perl-5.6.1/ext/NDBM_File/NDBM_File.xs~ Sat Mar 3 20:53:20 2001
2 +++ perl-5.6.1/ext/NDBM_File/NDBM_File.xs Fri Apr 20 18:23:37 2001
4 * See also INSTALL section on DB3.
5 * -- Stanislav Brabec <utx@penguin.cz> */
8 +#define DB_DBM_HSEARCH 1
13 --- perl-5.6.1/ext/NDBM_File/Makefile.PL~ Fri Apr 20 18:16:55 2001
14 +++ perl-5.6.1/ext/NDBM_File/Makefile.PL Fri Apr 20 18:33:48 2001
16 use ExtUtils::MakeMaker;
19 - LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
20 - CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
21 + LIBS => ["-L/usr/local/lib -ldb-4.1"],
22 + CCFLAGS => '-Dbool=char -DHAS_BOOL',
23 MAN3PODS => {}, # Pods will be built by installman.
24 XSPROTOARG => '-noprototypes', # XXX remove later?
25 VERSION_FROM => 'NDBM_File.pm',
26 --- perl-5.6.1/ext/DB_File/DB_File.xs~ Fri Feb 23 02:57:54 2001
27 +++ perl-5.6.1/ext/DB_File/DB_File.xs Thu Oct 17 18:55:01 2002
32 + DB_TXN * txnid = NULL;
34 /* Map 1.x flags to 3.x flags */
35 if ((flags & O_CREAT) == O_CREAT)
37 Flags |= DB_TRUNCATE ;
40 - status = (RETVAL->dbp->open)(RETVAL->dbp, name, NULL, RETVAL->type,
41 + status = (RETVAL->dbp->open)(RETVAL->dbp, txnid, name, NULL, RETVAL->type,
43 /* printf("open returned %d %s\n", status, db_strerror(status)) ; */