From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 5 Mar 2008 11:58:58 +0000 (+0000)
Subject: Better line diagnostics - runlint's caller rather than runlint itself.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b810cbf3630b54e4370087ac3cf7984f09b3d77c;p=p5sagit%2Fp5-mst-13.2.git

Better line diagnostics - runlint's caller rather than runlint itself.

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

diff --git a/ext/B/t/lint.t b/ext/B/t/lint.t
index f62adc2..b4cbf99 100644
--- a/ext/B/t/lint.t
+++ b/ext/B/t/lint.t
@@ -29,6 +29,7 @@ sub runlint ($$$;$) {
         stderr   => 1,
     );
     $res =~ s/-e syntax OK\n$//;
+    local $Level = $Level + 1;
     is( $res, $result, $testname || $opts );
 }