From: Andreas König Date: Fri, 15 Aug 2003 11:55:22 +0000 (+0200) Subject: Small test tweak for Memoize/t/error.t X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=930fff27e24d6b209cf6b0f66265a70201327b5f;p=p5sagit%2Fp5-mst-13.2.git Small test tweak for Memoize/t/error.t Message-ID: <87smo39red.fsf@franz.ak.mind.de> p4raw-id: //depot/perl@20728 --- diff --git a/lib/Memoize/t/errors.t b/lib/Memoize/t/errors.t index f92e517..43e77b9 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++; }