diff options
-rwxr-xr-x | scripts/checkpatch.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl index c6782ac6f130..1c032b1fa9eb 100755 --- a/scripts/checkpatch.pl +++ b/scripts/checkpatch.pl | |||
@@ -66,6 +66,7 @@ if ($#ARGV < 0) { | |||
66 | my $dbg_values = 0; | 66 | my $dbg_values = 0; |
67 | my $dbg_possible = 0; | 67 | my $dbg_possible = 0; |
68 | my $dbg_type = 0; | 68 | my $dbg_type = 0; |
69 | my $dbg_attr = 0; | ||
69 | for my $key (keys %debug) { | 70 | for my $key (keys %debug) { |
70 | eval "\${dbg_$key} = '$debug{$key}';" | 71 | eval "\${dbg_$key} = '$debug{$key}';" |
71 | } | 72 | } |
@@ -1367,6 +1368,15 @@ sub process { | |||
1367 | } | 1368 | } |
1368 | next; | 1369 | next; |
1369 | } | 1370 | } |
1371 | # TEST: allow direct testing of the attribute matcher. | ||
1372 | if ($dbg_attr) { | ||
1373 | if ($line =~ /^.\s*$Attribute\s*$/) { | ||
1374 | ERROR("TEST: is attr\n" . $herecurr); | ||
1375 | } elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) { | ||
1376 | ERROR("TEST: is not attr ($1 is)\n". $herecurr); | ||
1377 | } | ||
1378 | next; | ||
1379 | } | ||
1370 | 1380 | ||
1371 | # check for initialisation to aggregates open brace on the next line | 1381 | # check for initialisation to aggregates open brace on the next line |
1372 | if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && | 1382 | if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && |