From: Jonathan Stowe <gellyfish@gellyfish.com>
Date: Fri, 11 Jan 2002 09:28:46 +0000 (+0000)
Subject: [REPATCH] RE: [PATCH lib/AnyDBM_File.t] null key support back in DB v3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=408a2300b0e8e9fcc061b7d3266d60359fab2892;p=p5sagit%2Fp5-mst-13.2.git

[REPATCH] RE: [PATCH lib/AnyDBM_File.t] null key support back in DB v3
Message-ID: <Pine.LNX.4.33.0201110927480.10327-100000@orpheus.gellyfish.com>

p4raw-id: //depot/perl@14186
---

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
index 231e3b8..7d40f00 100755
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -135,7 +135,7 @@ ok($h{'foo'} eq '', "empty value");
 
 my $compact = '';
 
-if ($AnyDBM_File::ISA[0] eq 'DB_File' && $DB_File::db_ver >= 2.004010) {
+if ($AnyDBM_File::ISA[0] eq 'DB_File' && ($DB_File::db_ver >= 2.004010 && $DB_File::db_ver < 3.001)) {
      ($major, $minor, $patch) = ($DB_File::db_ver =~ /^(\d+)\.(\d\d\d)(\d\d\d)/) ;
      $major =~ s/^0+// ;
      $minor =~ s/^0+// ;
@@ -147,7 +147,7 @@ if ($AnyDBM_File::ISA[0] eq 'DB_File' && $DB_File::db_ver >= 2.004010) {
      # You are using DB_File $DB_File::VERSION and Berkeley DB $compact
      #
      # Berkeley DB 2 from version 2.4.10 onwards does not allow null keys.
-     # This feature will be reenabled in a future version of Berkeley DB.
+     # This feature returned with version 3.1
      #
 }