Fix failing test case missed during da9346a03

[dbsrgits/DBIx-Class.git] / t / 34exception_action.t

diff --git a/t/34exception_action.t b/t/34exception_action.t
index c9c0f6b..d326bf7 100644 (file)
--- a/t/34exception_action.t
+++ b/t/34exception_action.t
@@ -102,14 +102,14 @@ for my $ap (qw(
 
   # make sure an exception_action can replace $@ with an antipattern
   $schema->exception_action(sub { die $ap->new });
-  warnings_like {
+  warnings_exist {
     eval { $throw->() };
     isa_ok $@, $ap;
   } $exp_warn, 'proper warning on antipattern encountered within exception_action';
 
   # and make sure that the rethrow works
   $schema->exception_action(sub { die @_ });
-  warnings_like {
+  warnings_exist {
     eval {
       $schema->txn_do (sub { die $ap->new });
     };