Change 14093 by ams@lustre on 2002/01/05 17:58:35
Subject: [PATCH] make lib/Memoize/t/tie_ndbm.t tidy up more.
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sat, 5 Jan 2002 18:55:39 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Memoize/t/tie_ndbm.t#6 edit
Differences ...
==== //depot/perl/lib/Memoize/t/tie_ndbm.t#6 (text) ====
Index: perl/lib/Memoize/t/tie_ndbm.t
--- perl/lib/Memoize/t/tie_ndbm.t.~1~ Sat Jan 5 11:15:05 2002
+++ perl/lib/Memoize/t/tie_ndbm.t Sat Jan 5 11:15:05 2002
@@ -40,9 +40,9 @@
}
$tmpdir = $ENV{TMP} || $ENV{TMPDIR} || '/tmp';
$file = catfile($tmpdir, "md$$");
-1 while unlink $file, "$file.dir", "$file.pag";
+1 while unlink $file, "$file.dir", "$file.pag", "$file.db";
tryout('Memoize::NDBM_File', $file, 1); # Test 1..4
-1 while unlink $file, "$file.dir", "$file.pag";
+1 while unlink $file, "$file.dir", "$file.pag", "$file.db";
sub tryout {
my ($tiepack, $file, $testno) = @_;
End of Patch.
