This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
like and unlike weren't reporting failure where correctly in test.pl
[perl5.git] / t / test.pl
index 42a3c88..95aa87f 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -258,6 +258,7 @@ sub like_yn ($$$@) {
        unshift(@mess, "#      got '$got'\n",
                "# expected /$expected/\n");
     }
+    local $Level = 2;
     _ok($pass, _where(), $name, @mess);
 }