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 (executable)
--- 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++;
 }