From: Daniel Grisinger <dgris@dimensional.com>
Date: Tue, 6 Oct 1998 23:56:51 +0000 (-0600)
Subject: perldoc pod update
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54ac30b1470a8ff581c7f203ade9d446d394b251;p=p5sagit%2Fp5-mst-13.2.git

perldoc pod update
	Message-ID: <m3g1d0kj8c.fsf@perrin.dimensional.com>
	Subject: [PATCH _02 and _52] perldoc

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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index b680b90..4fff934 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -91,7 +91,7 @@ Options:
     -F   Arguments are file names, not modules
     -v	 Verbosely describe what's going on
     -X	 use index if present (looks for pod.idx at $Config{archlib})
-
+    -q   Search the text of questions (not answers) in perlfaq[1-9]
 
 PageName|ModuleName...
          is the name of a piece of documentation that you want to look at. You 
@@ -459,7 +459,7 @@ if ($opt_q) {
    my @pod;
 
    while (<>) {
-      if (/^=head2\s+.*$opt_q/oi) {
+      if (/^=head2\s+.*(?:$opt_q)/oi) {
 	 $found = 1;
 	 push @pod, "=head1 Found in $ARGV\n\n" unless $found_in{$ARGV}++;
       } elsif (/^=head2/) {