This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bring the joy of strict to ext/B/t/lint.t.
[perl5.git] / ext / B / t / lint.t
index b4cbf99..8510764 100644 (file)
@@ -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 );
 }