X-Git-Url: http://pilppa.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=scripts%2Fheaders_check.pl;h=488a3b1f760f77009d8a2a0f65b17aca9e7f3b9d;hb=fa93ca18a8b0da4e26bd9491ad144cd14d22f8ec;hp=15d53a6b1a1f99901b9bdf07e052331ce2a86a2e;hpb=62b3f981886b9b899eb0fc5fb59375f4512a1bd1;p=linux-2.6-omap-h63xx.git

diff --git a/scripts/headers_check.pl b/scripts/headers_check.pl
index 15d53a6b1a1..488a3b1f760 100644
--- a/scripts/headers_check.pl
+++ b/scripts/headers_check.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 #
 # headers_check.pl execute a number of trivial consistency checks
 #
@@ -17,7 +17,6 @@
 # 2) TODO: check for leaked CONFIG_ symbols
 
 use strict;
-use warnings;
 
 my ($dir, $arch, @files) = @ARGV;
 
@@ -27,14 +26,15 @@ my $lineno = 0;
 my $filename;
 
 foreach my $file (@files) {
+	local *FH;
 	$filename = $file;
-	open(my $fh, '<', "$filename") or die "$filename: $!\n";
+	open(FH, "<$filename") or die "$filename: $!\n";
 	$lineno = 0;
-	while ($line = <$fh>) {
+	while ($line = <FH>) {
 		$lineno++;
 		check_include();
 	}
-	close $fh;
+	close FH;
 }
 exit $ret;