Change 14910 by ams@lustre on 2002/02/28 11:26:47
Subject: [PATCH lib/Pod/Html.pm]
From: Stas Bekman <[EMAIL PROTECTED]>
Date: Thu, 28 Feb 2002 20:05:01 +0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Pod/Html.pm#53 edit
Differences ...
==== //depot/perl/lib/Pod/Html.pm#53 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm.~1~ Thu Feb 28 04:30:05 2002
+++ perl/lib/Pod/Html.pm Thu Feb 28 04:30:05 2002
@@ -1317,7 +1317,7 @@
my $ltrs = '\w';
my $gunk = '/#~:.?+=&%@!\-';
- my $punc = '.:?\-';
+ my $punc = '.:!?\-;';
my $any = "${ltrs}${gunk}${punc}";
$rest =~ s{
@@ -1325,14 +1325,17 @@
( # begin $1 {
$urls : # need resource and a colon
(?!:) # Ignore File::, among others.
- [$any] +? # followed by on or more
- # of any valid character, but
- # be conservative and take only
- # what you need to....
+ [$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 puntuation
- [^$any] # followed by a non-url char
+ [$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
)
End of Patch.
