diff options
| author | Andreas König <a.koenig@mind.de> | 2003-08-15 13:55:22 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-16 08:32:04 +0000 |
| commit | 930fff27e24d6b209cf6b0f66265a70201327b5f (patch) | |
| tree | 8ee6eb53334901d15904a954ff7c65e3e406f791 | |
| parent | 21cc0ee11981dcdd558daaf05644e1cba1f82feb (diff) | |
| download | perl-930fff27e24d6b209cf6b0f66265a70201327b5f.tar.gz | |
Small test tweak for Memoize/t/error.t
Message-ID: <87smo39red.fsf@franz.ak.mind.de>
p4raw-id: //depot/perl@20728
| -rwxr-xr-x | lib/Memoize/t/errors.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Memoize/t/errors.t b/lib/Memoize/t/errors.t index f92e5172b2..43e77b910c 100755 --- a/lib/Memoize/t/errors.t +++ b/lib/Memoize/t/errors.t @@ -33,7 +33,8 @@ for $mod (qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File)) { memoize(sub {}, LIST_CACHE => [HASH => \%cache ]); }; print $@ =~ /can only store scalars/ - || $@ =~ /Can't locate.*in \@INC/ ? "ok $n\n" : "not ok $n # $@\n"; + || $@ =~ /Can't locate.*in \@INC/ + || $@ =~ /Can't load '.*?' for module/ ? "ok $n\n" : "not ok $n # $@\n"; 1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag", "$dummyfile.db"; $n++; } |