diff options
| author | Jonathan Stowe <gellyfish@gellyfish.com> | 2002-01-11 09:28:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-11 14:13:02 +0000 |
| commit | 408a2300b0e8e9fcc061b7d3266d60359fab2892 (patch) | |
| tree | ca0614460fbde9151d3d325e073c29611c5d57df | |
| parent | 85d994b617a326573b56a7e7a28ecb19b5f2d1f3 (diff) | |
| download | perl-408a2300b0e8e9fcc061b7d3266d60359fab2892.tar.gz | |
[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
| -rwxr-xr-x | lib/AnyDBM_File.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t index 231e3b8f8b..7d40f00019 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 # } |