From 039d031f4e1c7ff1bc271958724796969501dded Mon Sep 17 00:00:00 2001 From: Paul Marquess Date: Thu, 9 Sep 1999 12:20:13 +0100 Subject: 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 --- t/lib/db-btree.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 't/lib') 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 -- cgit v1.2.1