|
Lines 307-312
foreach my $i (@checker) {
Link Here
|
| 307 |
} |
307 |
} |
| 308 |
} |
308 |
} |
| 309 |
|
309 |
|
|
|
310 |
checkpatches(<$makevar{FILESDIR}/patch-*>); |
| 311 |
|
| 310 |
if ($committer) { |
312 |
if ($committer) { |
| 311 |
sub find_proc { |
313 |
sub find_proc { |
| 312 |
return if /^\.\.?$/; |
314 |
return if /^\.\.?$/; |
|
Lines 1035-1040
sub checklastline {
Link Here
|
| 1035 |
close(IN); |
1037 |
close(IN); |
| 1036 |
} |
1038 |
} |
| 1037 |
|
1039 |
|
|
|
1040 |
sub checkpatches { |
| 1041 |
my (@patchfiles) = @_; |
| 1042 |
my @patched_files; |
| 1043 |
foreach my $file (@patchfiles) { |
| 1044 |
open(IN, "< $file") || return 0; |
| 1045 |
while (<IN>) { |
| 1046 |
if ($_ =~ /^\+\+\+\s(.*?)\s.*/) { |
| 1047 |
#if($1 ~~ @patched_files) { |
| 1048 |
if (grep {$_ eq $1} @patched_files) { |
| 1049 |
&perror("WARN", $file, -1, "$1 patched multiple times"); |
| 1050 |
} |
| 1051 |
else { |
| 1052 |
push(@patched_files, $1); |
| 1053 |
} |
| 1054 |
|
| 1055 |
} |
| 1056 |
} |
| 1057 |
} |
| 1058 |
} |
| 1059 |
|
| 1038 |
sub checkpatch { |
1060 |
sub checkpatch { |
| 1039 |
my($file) = @_; |
1061 |
my($file) = @_; |
| 1040 |
my($whole); |
1062 |
my($whole); |