diff options
| -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; |
