diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-12 18:42:32 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-13 09:43:46 +0000 |
| commit | fab416db1cda0a357b1699b6efa75dd50332ea26 (patch) | |
| tree | 4f8be30f7f3c98c60be4ced26dfeec69a291b778 /lib/Pod/Html.pm | |
| parent | 2051588124b1d9accc9aeb526746bb222cea5170 (diff) | |
| download | perl-fab416db1cda0a357b1699b6efa75dd50332ea26.tar.gz | |
Accidental interpolation of $@ in Pod::Html [PATCH]
Message-ID: <lr7jch95af.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@25747
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 4031f7afd1..239d305c9c 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -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*$|; |