diff options
| author | Abigail <abigail@abigail.be> | 2012-03-26 17:02:18 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2012-03-26 17:02:18 +0200 |
| commit | e9cdc2f57a393dfa227f9e0b3f08f0bbdb2421b5 (patch) | |
| tree | 4aac65d18a2b1b981717e3210a38b88741996183 | |
| parent | f37f40f4443470b7a9dc16c4549f9074ff36057b (diff) | |
| download | perl-e9cdc2f57a393dfa227f9e0b3f08f0bbdb2421b5.tar.gz | |
Fix error in regexp, causing it to match too much.
| -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)+)*) |