---

yaml
---
r: 199553
b: refs/heads/master
c: dbbe33e
h: refs/heads/master
i:
  199551: b1317a4
v: v3

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 91416cfdf98bdbc828fd3e5ca7208beba5979d63
+refs/heads/master: dbbe33e99f41a6f07e61dbce455964112d8ac72b

trunk/scripts/headers_check.pl

@@ -28,19 +28,20 @@
 my $filename;
 
 foreach my $file (@files) {
-	local *FH;
 	$filename = $file;
-	open(FH, "<$filename") or die "$filename: $!\n";
+
+	open(my $fh, '<', $filename)
+		or die "$filename: $!\n";
 	$lineno = 0;
-	while ($line = <FH>) {
+	while ($line = <$fh>) {
 		$lineno++;
 		&check_include();
 		&check_asm_types();
 		&check_sizetypes();
 		&check_declarations();
 		# Dropped for now. Too much noise &check_config();
 	}
-	close FH;
+	close $fh;
 }
 exit $ret;
 
@@ -78,7 +79,7 @@ sub check_config
 }
 
 my $linux_asm_types;
-sub check_asm_types()
+sub check_asm_types
 {
 	if ($filename =~ /types.h|int-l64.h|int-ll64.h/o) {
 		return;