--- BDB/BDB.pm	2008/07/09 21:00:13	1.43
+++ BDB/BDB.pm	2008/07/17 12:09:56	1.46
@@ -110,14 +110,16 @@
 
 use base 'Exporter';
 
+our $VERSION;
+
 BEGIN {
-   our $VERSION = '1.7';
+   $VERSION = '1.7';
 
    our @BDB_REQ = qw(
       db_env_open db_env_close db_env_txn_checkpoint db_env_lock_detect
       db_env_memp_sync db_env_memp_trickle db_env_dbrename db_env_dbremove
       db_open db_close db_compact db_sync db_upgrade
-      db_put db_get db_pget db_del db_key_range
+      db_put db_exists db_get db_pget db_del db_key_range
       db_txn_commit db_txn_abort db_txn_finish
       db_c_close db_c_count db_c_put db_c_get db_c_pget db_c_del
       db_sequence_open db_sequence_close
@@ -226,6 +228,7 @@
    db_key_range (DB *db, DB_TXN_ornull *txn, SV *key, SV *key_range, U32 flags = 0, SV *callback = &PL_sv_undef)
    db_put (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
       flags: APPEND NODUPDATA NOOVERWRITE
+   db_exists (DB *db, DB_TXN_ornull *txn, SV *key, U32 flags = 0, SV *callback = 0) (v4.6)
    db_get (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
       flags: CONSUME CONSUME_WAIT GET_BOTH SET_RECNO MULTIPLE READ_COMMITTED READ_UNCOMMITTED RMW
    db_pget (DB *db, DB_TXN_ornull *txn, SV *key, SV *pkey, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
@@ -303,8 +306,8 @@
    $int = $env->set_shm_key (long shm_key)
    $int = $env->set_cachesize (U32 gbytes, U32 bytes, int ncache = 0)
    $int = $env->set_flags (U32 flags, int onoff = 1)
-   $int = $env->log_set_config (U32 flags, int onoff = 1) [v4.7]
-   $int = $env->set_intermediate_dir_mode (const char *modestring) [v4.7]
+   $int = $env->log_set_config (U32 flags, int onoff = 1) (v4.7)
+   $int = $env->set_intermediate_dir_mode (const char *modestring) (v4.7)
    $env->set_errfile (FILE *errfile = 0)
    $env->set_msgfile (FILE *msgfile = 0)
    $int = $env->set_verbose (U32 which, int onoff = 1)
@@ -326,7 +329,7 @@
 
    $txn = $env->txn_begin (DB_TXN_ornull *parent = 0, U32 flags = 0)
       flags: READ_COMMITTED READ_UNCOMMITTED TXN_NOSYNC TXN_NOWAIT TXN_SNAPSHOT TXN_SYNC TXN_WAIT TXN_WRITE_NOSYNC
-   $txn = $env->cdsgroup_begin;
+   $txn = $env->cdsgroup_begin; (v4.5)
 
 =head4 Example:
 
@@ -428,7 +431,7 @@
            if (dbc)
              dbc->c_close (dbc);
 
-   $int = $cursor->set_priority ($priority = PRIORITY_*)
+   $int = $cursor->set_priority ($priority = PRIORITY_*) (v4.6)
 
 =head4 Example:
 
@@ -614,14 +617,21 @@
 =cut
 
 sub VERSION {
-   if (@_ > 0) {
-      return undef if VERSION_v lt $_[0];
-      if (@_ > 1) {
-         return undef if VERSION_v ge $_[1];
+   # I was dumb enough to override the VERSION method here, so let's try
+   # to fix it up.
+
+   if ($_[0] eq __PACKAGE__) {
+      $VERSION
+   } else {
+      if (@_ > 0) {
+         return undef if VERSION_v lt $_[0];
+         if (@_ > 1) {
+            return undef if VERSION_v ge $_[1];
+         }
       }
-   }
 
-   VERSION_v
+      VERSION_v
+   }
 }
 
 =head3 CONTROLLING THE NUMBER OF THREADS