Bring the joy of strict to ext/B/t/lint.t.

p4raw-id: //depot/perl@33445

diff --git a/ext/B/t/lint.t b/ext/B/t/lint.t
index b4cbf99..8510764 100644 (file)
--- a/ext/B/t/lint.t
+++ b/ext/B/t/lint.t
@@ -16,6 +16,8 @@ BEGIN {
     }
     require 'test.pl';
 }
+use strict;
+use warnings;
 
 plan tests => 29;
 
@@ -29,7 +31,7 @@ sub runlint ($$$;$) {
         stderr   => 1,
     );
     $res =~ s/-e syntax OK\n$//;
-    local $Level = $Level + 1;
+    local $::Level = $::Level + 1;
     is( $res, $result, $testname || $opts );
 }