From: DH <crazyinsomniac@yahoo.com>
Date: Thu, 22 Aug 2002 02:32:50 +0000 (-0700)
Subject: Re: a bugfix for Pod::Html (in diff -u format)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69e2f04480336aed2ad842f2b92ce366bcd2e9e1;p=p5sagit%2Fp5-mst-13.2.git

Re: a bugfix for Pod::Html (in diff -u format)
Message-ID: <20020822093250.30523.qmail@web40205.mail.yahoo.com>

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index eebc4db..61152af 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1336,23 +1336,25 @@ sub process_pre {
     my $any  = "${ltrs}${gunk}${punc}";
 
     $rest =~ s{
-        \b                          # start at word boundary
-        (                           # begin $1  {
-          $urls     :               # need resource and a colon
-	  (?!:)                     # Ignore File::, among others.
-          [$any] +?                 # followed by one or more of any valid
-                                    #   character, but be conservative and
-                                    #   take only what you need to....
-        )                           # end   $1  }
-        (?=                         # look-ahead non-consumptive assertion
-                [$punc]*            # either 0 or more punctuation
-                (?:                 #   followed
-                    [^$any]         #   by a non-url char
-                    |               #   or
-                    $               #   end of the string
-                )                   #
-            |                       # or else
-                $                   #   then end of the string
+	\b			# start at word boundary
+	(			# begin $1  {
+	    $urls :		# need resource and a colon
+	    (?!:)		# Ignore File::, among others.
+	    [$any] +?		# followed by one or more of any valid
+				#   character, but be conservative and
+				#   take only what you need to....
+	)			# end   $1  }
+	(?=
+	    &quot; &gt;		# maybe pre-quoted '<a href="...">'
+	|			# or:
+	    [$punc]*		# 0 or more punctuation
+	    (?:			#   followed
+		[^$any]		#   by a non-url char
+	    |			#   or
+		$		#   end of the string
+	    )			#
+	|			# or else
+	    $			#   then end of the string
         )
       }{<a href="$1">$1</a>}igox;