From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Dec 2005 11:35:21 +0000 (+0000)
Subject: like and unlike weren't reporting failure where correctly in test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fb276b815a6ad571450952d0012113a8db9e3f4;p=p5sagit%2Fp5-mst-13.2.git

like and unlike weren't reporting failure where correctly in test.pl

p4raw-id: //depot/perl@26469
---

diff --git a/t/test.pl b/t/test.pl
index 42a3c88..95aa87f 100644
--- 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);
 }