cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Ask "Bj?rn" Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/07/20 05:46:21
Modified: lib/Qpsmtpd SMTP.pm
Log:
support NULL envelopes again (doh, typo of the week :-) )
Revision Changes Path
1.35 +1 -1 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -w -r1.34 -r1.35
--- SMTP.pm 16 Jul 2004 09:44:39 -0000 1.34
+++ SMTP.pm 20 Jul 2004 12:46:20 -0000 1.35
@@ -227,7 +227,7 @@
my $from_parameter = join " ", @_;
$self->log(LOGINFO, "full from_parameter: $from_parameter");
- my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]+>)/i)[0];
+ my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]*>)/i)[0];
# support addresses without <> ... maybe we shouldn't?
($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"