cvs commit: qpsmtpd/lib/Qpsmtpd Address.pm
[email protected] (John Peacock)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/24 11:56:35
Modified: lib/Qpsmtpd Address.pm
Log:
* lib/Qpsmtpd/Address.pm
Change subdomain regex to match single character subdomains
(Robert Spier)
Revision Changes Path
1.3 +1 -1 qpsmtpd/lib/Qpsmtpd/Address.pm
Index: Address.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Address.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Address.pm 16 Jul 2004 02:51:39 -0000 1.2
+++ Address.pm 24 Sep 2004 18:56:35 -0000 1.3
@@ -115,7 +115,7 @@
my $atom = '[a-zA-Z0-9!#\$\%\&\x27\*\+\x2D\/=\?\^_`{\|}~]+';
my $address_literal =
'(?:\[(?:\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}|IPv6:[0-9A-Fa-f:.]+)\])';
- my $subdomain = '(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9]))';
+ my $subdomain = '(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?)';
my $domain = "(?:$address_literal|$subdomain(?:\.$subdomain)*)";
my $qtext = '[\x01-\x08\x0B\x0C\x0E-\x1F\x21\x23-\x5B\x5D-\x7F]';
my $text = '[\x01-\x09\x0B\x0C\x0E-\x7F]';