From: Abigail <abigail@abigail.be>
Date: Mon, 3 Aug 1998 20:22:49 +0000 (-0400)
Subject: correct Pod::Html's notion of email addresses
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af47ee559953261a98b07a8facdabf8c6a19ae2e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 =~ /^\((.*?)\)(,?)/;