Change 14186 by jhi@alpha on 2002/01/11 14:13:02
Subject: [REPATCH] RE: [PATCH lib/AnyDBM_File.t] null key support back in DB v3
From: Jonathan Stowe <[EMAIL PROTECTED]>
Date: Fri, 11 Jan 2002 09:28:46 +0000 (GMT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/AnyDBM_File.t#4 edit
Differences ...
==== //depot/perl/lib/AnyDBM_File.t#4 (xtext) ====
Index: perl/lib/AnyDBM_File.t
--- perl/lib/AnyDBM_File.t.~1~ Fri Jan 11 07:30:05 2002
+++ perl/lib/AnyDBM_File.t Fri Jan 11 07:30:05 2002
@@ -135,7 +135,7 @@
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 @@
# 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
#
}
End of Patch.
