diff options
| -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 = $&; |