diff options
| author | Daniel Grisinger <dgris@dimensional.com> | 1998-10-06 17:56:51 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-17 01:45:52 +0000 |
| commit | fef2f0f0c6a0f4d116ea8ac6f4c7149d12e53b12 (patch) | |
| tree | 6a09ade5874950b502fdcb16fbed3c7a7f11bf45 /utils/perldoc.PL | |
| parent | 0832b467031cd3ce95ba11db40b224260ad8c83e (diff) | |
| download | perl-fef2f0f0c6a0f4d116ea8ac6f4c7149d12e53b12.tar.gz | |
perldoc pod update
Message-ID: <m3g1d0kj8c.fsf@perrin.dimensional.com>
Subject: [PATCH _02 and _52] perldoc
p4raw-id: //depot/perl@1987
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index b680b90563..4fff93452f 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/) { |