From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 18 Feb 2007 14:18:01 +0000 (+0000)
Subject: test.pl should locally increase $Level, rather than setting it to a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5693d826577600a198e0f93a41f0ca319f85a889;p=p5sagit%2Fp5-mst-13.2.git

test.pl should locally increase $Level, rather than setting it to a
hard value, so that callers of like and unlike can present diagnostics
with the line number of their own caller.

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

diff --git a/t/test.pl b/t/test.pl
index 7b15685..5584669 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -276,7 +276,7 @@ sub like_yn ($$$@) {
 	unshift(@mess, "#      got '$got'\n",
 		"# expected /$expected/\n");
     }
-    local $Level = 2;
+    local $Level = $Level + 1;
     _ok($pass, _where(), $name, @mess);
 }