diff options
| author | DH <crazyinsomniac@yahoo.com> | 2002-08-21 19:32:50 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-25 15:17:16 +0000 |
| commit | 69e2f04480336aed2ad842f2b92ce366bcd2e9e1 (patch) | |
| tree | d6c80fd86ee5d115168803a34c510567da8b49d4 /lib | |
| parent | 4a92fa57ec8cc37e9a1d49b8ea05814e9342ee6f (diff) | |
| download | perl-69e2f04480336aed2ad842f2b92ce366bcd2e9e1.tar.gz | |
Re: a bugfix for Pod::Html (in diff -u format)
Message-ID: <20020822093250.30523.qmail@web40205.mail.yahoo.com>
p4raw-id: //depot/perl@17773
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index eebc4dbf3b..61152afef3 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 } + (?= + " > # 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; |