Never let ", <, or > be matched as part of a URL.

git-svn-id: svn://10.0.0.236/trunk@62532 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
2000-03-10 16:52:37 +00:00
parent 52f41c0725
commit 54f1e9551e

View File

@@ -71,7 +71,7 @@ sub quoteUrls {
my @things;
while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@[\w\-]+(?:\.[\w\-]+)+)\b|
(\b((?:$protocol):\S+[\w/])))%"##$count##"%exo) {
(\b((?:$protocol):[^ \t\n<>"]+[\w/])))%"##$count##"%exo) {
my $item = $&;
$item = value_quote($item);