In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6f63574e655f386b13267d58419ef322ca7e3f5d?hp=373b131131d48670ca1f2081fcd02b380b66f41b>
- Log ----------------------------------------------------------------- commit 6f63574e655f386b13267d58419ef322ca7e3f5d Author: Dan Kogai <[email protected]> Date: Tue Mar 24 12:51:01 2009 -0500 Fix for regular expressions for RFC2822. ----------------------------------------------------------------------- Summary of changes: pod/perlfaq9.pod | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index 609f898..8ac3d0e 100644 --- a/pod/perlfaq9.pod +++ b/pod/perlfaq9.pod @@ -433,7 +433,8 @@ This I<just> matches the address itself: my $dot_atom = qr{$atom(?:\.$atom)*}; my $quoted = qr{"(?:\\[^\r\n]|[^\\"])*"}; my $local = qr{(?:$dot_atom|$quoted)}; - my $domain_lit = qr{\[(?:\\\S|[\x21-\x5a\x5e-\x7e])*\]}; + my $quotedpair = qr{\\[\x00-\x09\x0B-\x0c\x0e-\x7e]}; + my $domain_lit = qr{\[(?:$quotedpair|[\x21-\x5a\x5e-\x7e])*\]}; my $domain = qr{(?:$dot_atom|$domain_lit)}; my $addr_spec = qr{$loc...@$domain}; -- Perl5 Master Repository
