diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-02 14:33:32 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-02 13:54:35 +0000 |
| commit | 962cee9facffd14ed2b33ddb0626baaefda942b8 (patch) | |
| tree | 849a06b2b663ce50a23ae3d2c207cde2b8790869 /ext/DB_File/DB_File.xs | |
| parent | 51efdd021730c26e86025564e60d0f686c2ddb4c (diff) | |
| download | perl-962cee9facffd14ed2b33ddb0626baaefda942b8.tar.gz | |
DB_File 1.803
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-Id: <AIEAJICLCBDNAAOLLOKLAEHGDOAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@14944
Diffstat (limited to 'ext/DB_File/DB_File.xs')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 26e2160f32..fc2f63e12a 100644 --- 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 <Paul.Marquess@btinternet.com> - last modified 6th Jan 2002 - version 1.802 + last modified 1st March 2002 + version 1.803 All comments/suggestions/problems are welcome @@ -99,6 +99,8 @@ Use the new constants code. 1.801 - No change to DB_File.xs 1.802 - No change to DB_File.xs + 1.803 - FETCH, STORE & DELETE don't map the flags parameter + into the equivalent Berkeley DB function anymore. */ @@ -123,8 +125,6 @@ # undef __attribute__ #endif - - #ifdef COMPAT185 # include <db_185.h> #else @@ -327,9 +327,9 @@ typedef union INFO { -#define db_DELETE(db, key, flags) ((db->dbp)->del)(db->dbp, TXN &key, flags) -#define db_STORE(db, key, value, flags) ((db->dbp)->put)(db->dbp, TXN &key, &value, flags) -#define db_FETCH(db, key, flags) ((db->dbp)->get)(db->dbp, TXN &key, &value, flags) +#define db_DELETE(db, key, flags) ((db->dbp)->del)(db->dbp, TXN &key, 0) +#define db_STORE(db, key, value, flags) ((db->dbp)->put)(db->dbp, TXN &key, &value, 0) +#define db_FETCH(db, key, flags) ((db->dbp)->get)(db->dbp, TXN &key, &value, 0) #define db_sync(db, flags) ((db->dbp)->sync)(db->dbp, flags) #define db_get(db, key, value, flags) ((db->dbp)->get)(db->dbp, TXN &key, &value, flags) |