From: Gisle Aas <gisle@aas.no>
Date: Thu, 13 Oct 2005 01:42:32 +0000 (-0700)
Subject: Accidental interpolation of $@ in Pod::Html [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fab416db1cda0a357b1699b6efa75dd50332ea26;p=p5sagit%2Fp5-mst-13.2.git

Accidental interpolation of $@ in Pod::Html [PATCH]
Message-ID: <lr7jch95af.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@25747
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 4031f7a..239d305 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*$|;