V3s_Allwinner
/
uboot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

get_maintainer.pl: add support for scanning multiple MAINTAINERS files 

Signed-off-by: Daniel Schwierzeck <daniel.schwierzeck@gmail.com>
This commit is contained in:
Daniel Schwierzeck 2014-08-01 02:24:11 +02:00 committed by Tom Rini
parent ee360cd26a
commit 68dc8769e3
1 changed files with 42 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
scripts/get_maintainer.pl
View File

@ -16,6 +16,7 @@ my $P = $0;
my $V = '0.26';
use Getopt::Long qw(:config no_auto_abbrev);
use File::Find;
my $lk_path = "./";
my $email = 1;
@ -273,8 +274,27 @@ if (!top_of_kernel_tree($lk_path)) {
my @typevalue = ();
my %keyword_hash;
open (my $maint, '<', "${lk_path}MAINTAINERS")
or die "$P: Can't open MAINTAINERS: $!\n";
my @maint_files = ();
push(@maint_files, "${lk_path}MAINTAINERS");
sub maint_wanted {
return unless $_ =~ /^MAINTAINERS/;
push(@maint_files, "$File::Find::name");
}
File::Find::find(\&maint_wanted, "${lk_path}board");
foreach my $maint_file (@maint_files) {
my $maint;
open ($maint, '<', "$maint_file")
or die "$P: Can't open $maint_file: $!\n";
read_maintainers($maint);
close($maint);
}
sub read_maintainers {
my ($maint) = @_;
while (<$maint>) {
my $line = $_;
@ -300,7 +320,7 @@ while (<$maint>) {
push(@typevalue, $line);
}
}
close($maint);
}
#