diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-03-25 20:57:46 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-03-25 20:57:46 +0000 |
commit | cacf81f42beab47944769821db143b4be96edd5d (patch) | |
tree | f022fac932a611b8e84b9bf64d5dca676d69d80d /lib/Memoize | |
parent | 8f42b153a33e87e34587f52f491b24c52b63b818 (diff) | |
download | perl-cacf81f42beab47944769821db143b4be96edd5d.tar.gz |
FreeBSD NDBM appears to generate files ending .db, so be prepared to
clean this variant up as well.
p4raw-id: //depot/perl@24078
Diffstat (limited to 'lib/Memoize')
-rw-r--r-- | lib/Memoize/t/tie_ndbm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Memoize/t/tie_ndbm.t b/lib/Memoize/t/tie_ndbm.t index e22f06f4f2..a328bc01bb 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) = @_; |