diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1999-09-09 12:20:13 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-09 10:17:45 +0000 |
| commit | 039d031f4e1c7ff1bc271958724796969501dded (patch) | |
| tree | 1a8c044f68b88f1bffd08f4a6f421035cc89e107 /t/lib | |
| parent | 2c914db612f0533f5da96e872ec005c73724c6fb (diff) | |
| download | perl-039d031f4e1c7ff1bc271958724796969501dded.tar.gz | |
DB_File 1.71
To: gsar@ActiveState.com
Cc: perl5-porters@perl.org
Message-ID: <5104D4DBC598D211B5FE0000F8FE7EB202D49BBE@mbtlipnt02.btlabs.bt.co.uk>
p4raw-id: //depot/cfgperl@4113
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/db-btree.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t index cea8163a46..b13e50eab7 100755 --- a/t/lib/db-btree.t +++ b/t/lib/db-btree.t @@ -82,6 +82,8 @@ sub docat_del } +$db185mode = ($DB_File::db_version == 1 && ! $DB_File::db_185_compat) ; + my $Dfile = "dbbtree.tmp"; unlink $Dfile; @@ -933,7 +935,7 @@ EOM unlink $filename ; } - ok(150, docat_del($file) eq ($DB_File::db_version == 1 ? <<'EOM' : <<'EOM') ) ; + ok(150, docat_del($file) eq ($db185mode ? <<'EOM' : <<'EOM') ) ; Smith -> John Wall -> Brick Wall -> Brick @@ -987,7 +989,7 @@ EOM untie %h ; } - ok(151, docat_del($file) eq ($DB_File::db_version == 1 ? <<'EOM' : <<'EOM') ) ; + ok(151, docat_del($file) eq ($db185mode == 1 ? <<'EOM' : <<'EOM') ) ; Smith -> John Wall -> Brick Wall -> Brick |