CHECKPATCH: Add --debug adv_checking

Add debug options to find this issue.  They were not listed
in the help because the are not simple to understand the output of.

Signed-off-by: Don Slutz <Don@CloudSwitch.com>
Signed-off-by: Blue Swirl <blauwirbel@gmail.com>
master
Don Slutz 2012-09-02 19:22:36 -04:00 committed by Blue Swirl
parent a99ac041e9
commit 5424302e56
1 changed files with 3 additions and 1 deletions

View File

@ -98,6 +98,7 @@ my $dbg_possible = 0;
my $dbg_type = 0;
my $dbg_attr = 0;
my $dbg_adv_dcs = 0;
my $dbg_adv_checking = 0;
for my $key (keys %debug) {
## no critic
eval "\${dbg_$key} = '$debug{$key}';";
@ -2549,7 +2550,8 @@ sub process {
# Check the condition.
my ($cond, $block) = @{$chunks[0]};
#print "CHECKING<$linenr> cond<$cond> block<$block>\n";
print "CHECKING<$linenr> cond<$cond> block<$block>\n"
if $dbg_adv_checking;
if (defined $cond) {
substr($block, 0, length($cond), '');
}