diff options
| author | Abigail <abigail@abigail.be> | 1998-08-03 16:22:49 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-04 19:52:43 +0000 |
| commit | af47ee559953261a98b07a8facdabf8c6a19ae2e (patch) | |
| tree | daebf571fad428378f7a91c07f1c80203dcddc07 /lib | |
| parent | f34d0673dac61d5f25529c7aee04cbe5432d4e46 (diff) | |
| download | perl-af47ee559953261a98b07a8facdabf8c6a19ae2e.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index a0dc4b3f11..5d2e07b2af 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 =~ /^\((.*?)\)(,?)/; |