diff options
author | terry%mozilla.org <> | 1999-05-26 04:52:34 +0200 |
---|---|---|
committer | terry%mozilla.org <> | 1999-05-26 04:52:34 +0200 |
commit | b0ce98e67626a85a78ea0defb8533f5adb87e2f3 (patch) | |
tree | 840d28676005f6f5a187605b9dafdd0da8a55588 /bug_form.pl | |
parent | 6c926fc14f987a047f1db3a793556f98f271b9f2 (diff) | |
download | bugzilla-b0ce98e67626a85a78ea0defb8533f5adb87e2f3.tar.gz bugzilla-b0ce98e67626a85a78ea0defb8533f5adb87e2f3.tar.xz |
Fixed bug 7000 -- handle hyphens in hostnames of email addresses when
highlighting.
Diffstat (limited to 'bug_form.pl')
-rw-r--r-- | bug_form.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bug_form.pl b/bug_form.pl index 1c9ecb1e0..7757b038c 100644 --- a/bug_form.pl +++ b/bug_form.pl @@ -52,7 +52,7 @@ sub quoteUrls { # which can happen if you do multiple s///g operations. my @things; - while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@\w+(?:\.\w+)+)\b| + while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@[\w\-]+(?:\.[\w\-]+)+)\b| (\b((?:$protocol):\S+[\w/])))%"##$count##"%exo) { my $item = $&; |