diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-30 12:26:53 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-30 12:26:53 +0000 |
commit | ac499c5c3b8a1a75bcad9352e6db98e93806dbf6 (patch) | |
tree | 4af8fc7d34386db95aef06ed8d93c1f206aba9df /Porting | |
parent | 9a119d777e247766f310ac4ec5c1136d73a8a7bd (diff) | |
download | perl-ac499c5c3b8a1a75bcad9352e6db98e93806dbf6.tar.gz |
Maintainers script tweaks.
p4raw-id: //depot/perl@20346
Diffstat (limited to 'Porting')
-rw-r--r-- | Porting/Maintainers | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Porting/Maintainers b/Porting/Maintainers index 10d124e7b4..a9a92884d4 100644 --- a/Porting/Maintainers +++ b/Porting/Maintainers @@ -16,13 +16,13 @@ use File::Find; sub usage { print <<__EOF__; $0: Usage: $0 [[--maintainer M --module M --files]|file ...] -$0 --maintainer M list all maintainers matching M -$0 --module M list all modules matching M -$0 --files list all files of the module +--maintainer M list all maintainers matching M +--module M list all modules matching M +--files list all files Matching is case-ignoring regexp, author matching is both by the short id and by the full name and email. A "module" may not be just a module, it may be a file or files or a subdirectory. -$0 file ... list the modules and maintainers of the files +The options may be abbreviated to their unique prefixes __EOF__ exit(0); } @@ -45,7 +45,7 @@ usage() if @Files && ($Maintainer || $Module || $Files); for my $mean ($Maintainer, $Module) { warn "$0: Did you mean '$0 $mean'?\n" - if $mean && -e $mean && $mean ne '.'; + if $mean && -e $mean && $mean ne '.' && !$Files; } warn "$0: Did you mean '$0 -mo $Maintainer'?\n" |