PATCH [5.004_67] perldoc.PL

	Message-ID: <Pine.LNX.3.96.980622135953.10412A-100000@perrin.dimensional.com>

p4raw-id: //depot/perl@1198

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 5b12696..b7b16e8 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -119,7 +119,7 @@ use Text::ParseWords;
 
 unshift(@ARGV,shellwords($ENV{"PERLDOC"}));
 
-getopts("mhtluvriFf:Xq") || usage;
+getopts("mhtluvriFf:Xq:") || usage;
 
 usage if $opt_h || $opt_h; # avoid -w warning
 
@@ -524,6 +524,8 @@ B<perldoc> [B<-h>] [B<-v>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>]  [B<-X>] Page
 
 B<perldoc> B<-f> BuiltinFunction
 
+B<perldoc> B<-q> FAQ Keyword
+
 =head1 DESCRIPTION
 
 I<perldoc> looks up a piece of documentation in .pod format that is embedded
@@ -576,6 +578,12 @@ Consider arguments as file names, no search in directories will be performed.
 The B<-f> option followed by the name of a perl built in function will
 extract the documentation of this function from L<perlfunc>.
 
+=item B<-q> perlfaq
+
+The B<-q> option takes a regular expression as an argument.  It will search
+the question headings in perlfaq[1-9] and print the entries matching
+the regular expression.
+
 =item B<-X> use an index if present
 
 The B<-X> option looks for a entry whose basename matches the name given on the