diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-04-01 22:54:05 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 20:38:57 +0000 |
| commit | 14f1b571f84acc4bf24a636b9e1421bf9f0bce58 (patch) | |
| tree | 9bfcad60340147ded41b00cdb85905c6587ce830 /lib/Memoize | |
| parent | 24e08cbad4d455c0ea0d5e7994d8469a9fc6790b (diff) | |
| download | perl-14f1b571f84acc4bf24a636b9e1421bf9f0bce58.tar.gz | |
for beter make distclean (was Re: [PATCH] Re: [ID 20020305.026] Not OK: perl v5.7.3 +DEVEL15046 on sun4-solaris 2.7)
Message-ID: <20020401205405.GI319@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@15669
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 5e3218d4aa..1b50aaf020 100755 --- 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++; } |