From: Nicholas Clark Date: Fri, 25 Mar 2005 20:57:46 +0000 (+0000) Subject: FreeBSD NDBM appears to generate files ending .db, so be prepared to X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cacf81f42beab47944769821db143b4be96edd5d;p=p5sagit%2Fp5-mst-13.2.git FreeBSD NDBM appears to generate files ending .db, so be prepared to clean this variant up as well. p4raw-id: //depot/perl@24078 --- diff --git a/lib/Memoize/t/tie_ndbm.t b/lib/Memoize/t/tie_ndbm.t index e22f06f..a328bc0 100644 --- a/lib/Memoize/t/tie_ndbm.t +++ b/lib/Memoize/t/tie_ndbm.t @@ -29,9 +29,9 @@ if ($@) { print "1..4\n"; $file = "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) = @_;