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 (file)
--- 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 );
 }