projects / packages / perl.git / blame
| Commit | Line | Data |
|---|---|---|
| a6d67967 MM |
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 | |
| 3 | @@ -6,7 +6,8 @@ | |
| 4 | * See also INSTALL section on DB3. | |
| 5 | * -- Stanislav Brabec <utx@penguin.cz> */ | |
| 6 | #undef ENTER | |
| 7 | -#include <ndbm.h> | |
| 8 | +#define DB_DBM_HSEARCH 1 | |
| 9 | +#include <db.h> | |
| 10 | ||
| 11 | typedef struct { | |
| 12 | DBM * dbp ; | |
| 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 | |
| 15 | @@ -1,8 +1,8 @@ | |
| 16 | use ExtUtils::MakeMaker; | |
| 17 | WriteMakefile( | |
| 18 | NAME => 'NDBM_File', | |
| 19 | - LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"], | |
| 20 | - CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL', | |
| b91b4685 | 21 | + LIBS => ["-L/usr/local/lib -ldb-4.1"], |
| a6d67967 MM |
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', | |
| 985789d2 MM |
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 | |
| 28 | @@ -1318,6 +1318,7 @@ | |
| 29 | { | |
| 30 | int Flags = 0 ; | |
| 31 | int status ; | |
| 32 | + DB_TXN * txnid = NULL; | |
| 33 | ||
| 34 | /* Map 1.x flags to 3.x flags */ | |
| 35 | if ((flags & O_CREAT) == O_CREAT) | |
| 36 | @@ -1335,7 +1336,7 @@ | |
| 37 | Flags |= DB_TRUNCATE ; | |
| 38 | #endif | |
| 39 | ||
| 40 | - status = (RETVAL->dbp->open)(RETVAL->dbp, name, NULL, RETVAL->type, | |
| 41 | + status = (RETVAL->dbp->open)(RETVAL->dbp, txnid, name, NULL, RETVAL->type, | |
| 42 | Flags, mode) ; | |
| 43 | /* printf("open returned %d %s\n", status, db_strerror(status)) ; */ | |
| 44 |