From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 5 Mar 2008 17:00:34 +0000 (+0000)
Subject: Bring the joy of strict to ext/B/t/lint.t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=354c4f6702429b0ee68ace7c068c71c145b01011;p=p5sagit%2Fp5-mst-13.2.git

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