Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 305_RT_41255.t

diff --git a/t/305_RT_41255.t b/t/305_RT_41255.t
index aeeb14c..0c87b9d 100644 (file)
--- a/t/305_RT_41255.t
+++ b/t/305_RT_41255.t
@@ -27,7 +27,7 @@ my %methods = map { $_ => $meta->find_method_by_name($_) } 'm1' .. 'm5';
 
 while (my ($name, $meta_method) = each %methods) {
     is $meta_method->fully_qualified_name, "Derived::${name}";
-    like exception { $meta_method->execute }, qr/Undefined subroutine .* called at/;
+    like( exception { $meta_method->execute }, qr/Undefined subroutine .* called at/ );
 }
 
 {
@@ -45,7 +45,7 @@ EOC
 
 while (my ($name, $meta_method) = each %methods) {
     is $meta_method->fully_qualified_name, "Derived::${name}";
-    ok ! exception { $meta_method->execute },;
+    is( exception { $meta_method->execute }, undef );
 }
 
 done_testing;