DB_File 1.15 patch

[p5sagit/p5-mst-13.2.git] / ext / DB_File / DB_File.xs

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 8d01d91..d2c7e6c 100644 (file)
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -3,8 +3,8 @@
  DB_File.xs -- Perl 5 interface to Berkeley DB 
 
  written by Paul Marquess (pmarquess@bfsec.bt.co.uk)
- last modified 30th Apr 1997
- version 1.14
+ last modified 29th Jun 1997
+ version 1.15
 
  All comments/suggestions/problems are welcome
 
@@ -42,6 +42,9 @@
        1.13 -  Tidied up a few casts.
        1.14 -  Made it illegal to tie an associative array to a RECNO
                database and an ordinary array to a HASH or BTREE database.
+       1.15 -  Patch from Gisle Aas <gisle@aas.no> to suppress "use of 
+               undefined value" warning with db_get and db_seq.
+
 
 */
 
@@ -50,6 +53,9 @@
 #include "XSUB.h"
 
 #include <db.h>
+/* #ifdef DB_VERSION_MAJOR */
+/* #include <db_185.h> */
+/* #endif */
 
 #include <fcntl.h> 
 
@@ -87,7 +93,7 @@ typedef DB_File_type * DB_File ;
 typedef DBT DBTKEY ;
 
 
-/* #define TRACE    */
+/* #define TRACE */
 
 #define db_DESTROY(db)                  ((db->dbp)->close)(db->dbp)
 #define db_DELETE(db, key, flags)       ((db->dbp)->del)(db->dbp, &key, flags)
@@ -1062,7 +1068,7 @@ int
 db_get(db, key, value, flags=0)
        DB_File         db
        DBTKEY          key
-       DBT             value
+       DBT             value = NO_INIT
        u_int           flags
        INIT:
          CurrentDB = db ;
@@ -1098,7 +1104,7 @@ int
 db_seq(db, key, value, flags)
        DB_File         db
        DBTKEY          key 
-       DBT             value
+       DBT             value = NO_INIT
        u_int           flags
        INIT:
          CurrentDB = db ;