PATCH: perldoc -f does not locate -e, -r, -x, etc.

	Message-ID: <19981004184811.16048.qmail@plover.com>

p4raw-id: //depot/perl@1926

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 875cd25..b680b90 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -408,6 +408,9 @@ if ($opt_f) {
    my $perlfunc = shift @found;
    open(PFUNC, $perlfunc) or die "Can't open $perlfunc: $!";
 
+   # Functions like -r, -e, etc. are listed under `-X'.
+   my $search_string = ($opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/) ? 'I<-X' : $opt_f ;
+
    # Skip introduction
    while (<PFUNC>) {
        last if /^=head2 Alphabetical Listing of Perl Functions/;
@@ -417,7 +420,7 @@ if ($opt_f) {
    my $found = 0;
    my @pod;
    while (<PFUNC>) {
-       if (/^=item\s+\Q$opt_f\E\b/o)  {
+       if (/^=item\s+\Q$search_string\E\b/o)  {
           $found = 1;
        } elsif (/^=item/) {
           last if $found > 1;