diff options
| -rw-r--r-- | t/re/reg_email.t | 2 |
1 files changed, 1 insertions, 1 deletions
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) | (?"ed_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)+)*) |