diff options
| author | Stas Bekman <stas@stason.org> | 2002-03-01 04:05:01 +0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-28 11:26:47 +0000 |
| commit | 347ff1e1e096e50c878f451986c434f1fe1d85fc (patch) | |
| tree | ce8678aa6acbdeda6da1004d871ba1c277141b7d /lib/Pod/Html.pm | |
| parent | 8134b0337fe53e4e7961cf78c9628bc7a966e775 (diff) | |
| download | perl-347ff1e1e096e50c878f451986c434f1fe1d85fc.tar.gz | |
Message-Id: <3C7E1CED.7000307@stason.org>
p4raw-id: //depot/perl@14910
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 9df3172a4b..91f78f6e03 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1317,7 +1317,7 @@ sub process_pre { my $ltrs = '\w'; my $gunk = '/#~:.?+=&%@!\-'; - my $punc = '.:?\-'; + my $punc = '.:!?\-;'; my $any = "${ltrs}${gunk}${punc}"; $rest =~ s{ @@ -1325,14 +1325,17 @@ sub process_pre { ( # 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 ) |