correct Pod::Html's notion of email addresses

	Message-ID: <19980804002249.2011.qmail@betelgeuse.wayne.fnx.com>
	Subject: [PATCH 5.005_01] lib/Pod/Html.pm

p4raw-id: //depot/maint-5.005/perl@1726

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index a0dc4b3..5d2e07b 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1293,7 +1293,7 @@ sub process_puretext {
        } elsif ($word =~ m,^\w+://\w,) {
            # looks like a URL
            $word = qq(<A HREF="$word">$word</A>);
-       } elsif ($word =~ /[\w.-]+\@\w+\.\w/) {
+       } elsif ($word =~ /[\w.-]+\@[\w-]+\.\w/) {
            # looks like an e-mail address
            my ($w1, $w2, $w3) = ("", $word, "");
            ($w1, $w2, $w3) = ("(", $1, ")$2") if $word =~ /^\((.*?)\)(,?)/;