diff options
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/get_maintainer.pl | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl index f302ad3759f3..1eb67fc543df 100755 --- a/scripts/get_maintainer.pl +++ b/scripts/get_maintainer.pl | |||
@@ -216,15 +216,19 @@ foreach my $file (@files) { | |||
216 | 216 | ||
217 | } | 217 | } |
218 | 218 | ||
219 | if ($email_git_penguin_chiefs) { | 219 | if ($email) { |
220 | foreach my $chief (@penguin_chief) { | 220 | foreach my $chief (@penguin_chief) { |
221 | if ($chief =~ m/^(.*):(.*)/) { | 221 | if ($chief =~ m/^(.*):(.*)/) { |
222 | my $chief_name = $1; | 222 | my $email_address; |
223 | my $chief_addr = $2; | ||
224 | if ($email_usename) { | 223 | if ($email_usename) { |
225 | push(@email_to, format_email($chief_name, $chief_addr)); | 224 | $email_address = format_email($1, $2); |
226 | } else { | 225 | } else { |
227 | push(@email_to, $chief_addr); | 226 | $email_address = $2; |
227 | } | ||
228 | if ($email_git_penguin_chiefs) { | ||
229 | push(@email_to, $email_address); | ||
230 | } else { | ||
231 | @email_to = grep(!/${email_address}/, @email_to); | ||
228 | } | 232 | } |
229 | } | 233 | } |
230 | } | 234 | } |
@@ -236,10 +240,7 @@ if ($email || $email_list) { | |||
236 | @to = (@to, @email_to); | 240 | @to = (@to, @email_to); |
237 | } | 241 | } |
238 | if ($email_list) { | 242 | if ($email_list) { |
239 | if (@list_to == 0) { | ||
240 | push(@list_to, "linux-kernel\@vger.kernel.org"); | ||
241 | @to = (@to, @list_to); | 243 | @to = (@to, @list_to); |
242 | } | ||
243 | } | 244 | } |
244 | output(uniq(@to)); | 245 | output(uniq(@to)); |
245 | } | 246 | } |
@@ -314,7 +315,7 @@ Default options: | |||
314 | [--email --git --m --n --l --multiline] | 315 | [--email --git --m --n --l --multiline] |
315 | 316 | ||
316 | Other options: | 317 | Other options: |
317 | --version -> show version | 318 | --version => show version |
318 | --help => show this help information | 319 | --help => show this help information |
319 | 320 | ||
320 | EOT | 321 | EOT |
@@ -423,7 +424,7 @@ sub add_categories { | |||
423 | sub which { | 424 | sub which { |
424 | my ($bin) = @_; | 425 | my ($bin) = @_; |
425 | 426 | ||
426 | foreach my $path (split /:/, $ENV{PATH}) { | 427 | foreach my $path (split(/:/, $ENV{PATH})) { |
427 | if (-e "$path/$bin") { | 428 | if (-e "$path/$bin") { |
428 | return "$path/$bin"; | 429 | return "$path/$bin"; |
429 | } | 430 | } |
@@ -446,12 +447,8 @@ sub recent_git_signoffs { | |||
446 | } | 447 | } |
447 | 448 | ||
448 | $cmd = "git log --since=${email_git_since} -- ${file}"; | 449 | $cmd = "git log --since=${email_git_since} -- ${file}"; |
449 | $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@\""; | 450 | $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@.*\$\""; |
450 | if (!$email_git_penguin_chiefs) { | ||
451 | $cmd .= " | grep -Pv \"${penguin_chiefs}\""; | ||
452 | } | ||
453 | $cmd .= " | cut -f2- -d\":\""; | 451 | $cmd .= " | cut -f2- -d\":\""; |
454 | $cmd .= " | sed -e \"s/^\\s+//g\""; | ||
455 | $cmd .= " | sort | uniq -c | sort -rn"; | 452 | $cmd .= " | sort | uniq -c | sort -rn"; |
456 | 453 | ||
457 | $output = `${cmd}`; | 454 | $output = `${cmd}`; |