From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 Jul 2003 12:26:53 +0000 (+0000)
Subject: Maintainers script tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac499c5c3b8a1a75bcad9352e6db98e93806dbf6;p=p5sagit%2Fp5-mst-13.2.git

Maintainers script tweaks.

p4raw-id: //depot/perl@20346
---

diff --git a/Porting/Maintainers b/Porting/Maintainers
index 10d124e..a9a9288 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"