diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2009-03-24 12:51:01 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2009-03-24 12:51:01 -0500 |
| commit | 6f63574e655f386b13267d58419ef322ca7e3f5d (patch) | |
| tree | 96094a24452b1cfe045d70031e9c3b37277cb415 | |
| parent | 373b131131d48670ca1f2081fcd02b380b66f41b (diff) | |
| download | perl-6f63574e655f386b13267d58419ef322ca7e3f5d.tar.gz | |
Fix for regular expressions for RFC2822.
| -rw-r--r-- | pod/perlfaq9.pod | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index 609f898485..8ac3d0e4f8 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{$local\@$domain}; |