diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 16:45:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 16:45:54 +0000 |
| commit | 206b12d5641a74e09d210dd4ea3998febd96392f (patch) | |
| tree | 73ad42734e0ebb19822a11154cc600af26734fe3 /lib/Memoize | |
| parent | 7234c9606edf69c3a376084693e90ff4d9d10f06 (diff) | |
| download | perl-206b12d5641a74e09d210dd4ea3998febd96392f.tar.gz | |
avoid temp file littering in tests
p4raw-id: //depot/perl@11585
Diffstat (limited to 'lib/Memoize')
| -rwxr-xr-x | lib/Memoize/t/errors.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Memoize/t/errors.t b/lib/Memoize/t/errors.t index 27daa92b8f..2e81cdbcd4 100755 --- a/lib/Memoize/t/errors.t +++ b/lib/Memoize/t/errors.t @@ -33,7 +33,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; + 1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag"; $n++; } |