for beter make distclean (was Re: [PATCH] Re: [ID 20020305.026] Not OK: perl v5.7...

Message-ID: <20020401205405.GI319@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@15669

diff --git a/lib/Memoize/t/errors.t b/lib/Memoize/t/errors.t
index 5e3218d..1b50aaf 100755 (executable)
--- a/lib/Memoize/t/errors.t
+++ b/lib/Memoize/t/errors.t
@@ -36,7 +36,7 @@ for $mod (qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File)) {
   };
   print $@ =~ /can only store scalars/
      || $@ =~ /Can't locate.*in \@INC/ ? "ok $n\n" : "not ok $n # $@\n";
-  1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag";
+  1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag", "$dummyfile.db";
   $n++;
 }