diff options
Diffstat (limited to 'scripts/headers_check.pl')
-rw-r--r-- | scripts/headers_check.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/scripts/headers_check.pl b/scripts/headers_check.pl index db1dd7a549f2..50d6cfd1fa77 100644 --- a/scripts/headers_check.pl +++ b/scripts/headers_check.pl | |||
@@ -28,11 +28,12 @@ my $lineno = 0; | |||
28 | my $filename; | 28 | my $filename; |
29 | 29 | ||
30 | foreach my $file (@files) { | 30 | foreach my $file (@files) { |
31 | local *FH; | ||
32 | $filename = $file; | 31 | $filename = $file; |
33 | open(FH, "<$filename") or die "$filename: $!\n"; | 32 | |
33 | open(my $fh, '<', $filename) | ||
34 | or die "$filename: $!\n"; | ||
34 | $lineno = 0; | 35 | $lineno = 0; |
35 | while ($line = <FH>) { | 36 | while ($line = <$fh>) { |
36 | $lineno++; | 37 | $lineno++; |
37 | &check_include(); | 38 | &check_include(); |
38 | &check_asm_types(); | 39 | &check_asm_types(); |
@@ -40,7 +41,7 @@ foreach my $file (@files) { | |||
40 | &check_declarations(); | 41 | &check_declarations(); |
41 | # Dropped for now. Too much noise &check_config(); | 42 | # Dropped for now. Too much noise &check_config(); |
42 | } | 43 | } |
43 | close FH; | 44 | close $fh; |
44 | } | 45 | } |
45 | exit $ret; | 46 | exit $ret; |
46 | 47 | ||
@@ -78,7 +79,7 @@ sub check_config | |||
78 | } | 79 | } |
79 | 80 | ||
80 | my $linux_asm_types; | 81 | my $linux_asm_types; |
81 | sub check_asm_types() | 82 | sub check_asm_types |
82 | { | 83 | { |
83 | if ($filename =~ /types.h|int-l64.h|int-ll64.h/o) { | 84 | if ($filename =~ /types.h|int-l64.h|int-ll64.h/o) { |
84 | return; | 85 | return; |