This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Accidental interpolation of $@ in Pod::Html [PATCH]
authorGisle Aas <gisle@aas.no>
Thu, 13 Oct 2005 01:42:32 +0000 (18:42 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 13 Oct 2005 09:43:46 +0000 (09:43 +0000)
Message-ID: <lr7jch95af.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@25747

lib/Pod/Html.pm

index 4031f7a..239d305 100644 (file)
@@ -1408,7 +1408,7 @@ sub inIS_text($){
 sub process_puretext {
     my($text, $quote, $notinIS) = @_;
 
-    ## Guessing at func() or [$@%&]*var references in plain text is destined
+    ## Guessing at func() or [\$\@%&]*var references in plain text is destined
     ## to produce some strange looking ref's. uncomment to disable:
     ## $notinIS = 0;
 
@@ -2072,7 +2072,7 @@ sub fragment_id {
        return $1 if $text =~ /->\s*(\w+)\s*\(?/;
 
        # a variable name?
-       return $1 if $text =~ /^([$@%*]\S+)/;
+       return $1 if $text =~ /^([\$\@%*]\S+)/;
 
        # some pattern matching operator?
        return $1 if $text =~ m|^(\w+/).*/\w*$|;