perl-db4.patch

   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',
  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
  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