Change 17773 by [EMAIL PROTECTED] on 2002/08/25 15:17:16
Subject: Re: a bugfix for Pod::Html (in diff -u format)
From: DH <[EMAIL PROTECTED]>
Date: Thu, 22 Aug 2002 02:32:50 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Pod/Html.pm#62 edit
Differences ...
==== //depot/perl/lib/Pod/Html.pm#62 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm#61~17026~ Wed Jun 5 18:25:13 2002
+++ perl/lib/Pod/Html.pm Sun Aug 25 08:17:16 2002
@@ -1336,23 +1336,25 @@
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 }
+ (?=
+ " > # 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;
End of Patch.
