X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftest.pl;h=37e6682e2f3be9d6f406da23050e639890ad2f4a;hb=c4bd3ae5119ffa374bc2a939fae6f0e624cc7804;hp=7b1568523aeb7e50315665c3a7b399409fc2b7d7;hpb=326b5008ebd8d91bf6b00d96127d2d711c9f2132;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/test.pl b/t/test.pl
index 7b15685..37e6682 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -274,9 +274,10 @@ sub like_yn ($$$@) {
     $pass = $got !~ /$expected/ if $flip;
     unless ($pass) {
 	unshift(@mess, "#      got '$got'\n",
-		"# expected /$expected/\n");
+		$flip
+		? "# expected !~ /$expected/\n" : "# expected /$expected/\n");
     }
-    local $Level = 2;
+    local $Level = $Level + 1;
     _ok($pass, _where(), $name, @mess);
 }