This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix `perldoc -v '$0'`
authorAlan Haggai Alavi <alanhaggai@alanhaggai.org>
Sat, 25 Jun 2011 05:01:04 +0000 (10:31 +0530)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 25 Jun 2011 05:58:13 +0000 (22:58 -0700)
Presently, `perldoc -v '$0'` fetches the entry for $<digits> ($1, $2,
...) instead of $0 ($PROGRAM_NAME).

dist/Pod-Perldoc/lib/Pod/Perldoc.pm

index 5cf3955..a65a474 100644 (file)
@@ -911,7 +911,7 @@ sub search_perlvar {
     open(PVAR, "<", $perlvar)               # "Funk is its own reward"
         or die("Can't open $perlvar: $!");
 
-    if ( $opt =~ /^\$\d+$/ ) { # handle $1, $2, ..., $9
+    if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ...
       $opt = '$<I<digits>>';
     }
     my $search_re = quotemeta($opt);