From e9cdc2f57a393dfa227f9e0b3f08f0bbdb2421b5 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Mar 2012 17:02:18 +0200
Subject: Fix error in regexp, causing it to match too much.

---
 t/re/reg_email.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/re/reg_email.t b/t/re/reg_email.t
index 27f1f35591..a498585794 100644
--- a/t/re/reg_email.t
+++ b/t/re/reg_email.t
@@ -30,7 +30,7 @@ my $email = qr {
       (?<dcontent>        (?&dtext) | (?&quoted_pair))
       (?<dtext>           (?&NO_WS_CTL) | [\x21-\x5a\x5e-\x7e])
 
-      (?<atext>           (?&ALPHA) | (?&DIGIT) | [!#\$%&'*+-/=?^_`{|}~])
+      (?<atext>           (?&ALPHA) | (?&DIGIT) | [-!#\$%&'*+/=?^_`{|}~])
       (?<atom>            (?&CFWS)? (?&atext)+ (?&CFWS)?)
       (?<dot_atom>        (?&CFWS)? (?&dot_atom_text) (?&CFWS)?)
       (?<dot_atom_text>   (?&atext)+ (?: \. (?&atext)+)*)
-- 
cgit v1.2.1