byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove debug print

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@680 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2006-12-08 20:55:47 +00:00
parent 2b709d664c
commit 5fea527ba4
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Qpsmtpd/Command.pm
View File

@ -99,7 +99,6 @@ sub parse_rcpt {
sub parse_mail { sub parse_mail {
my ($self,$cmd,$line) = @_; my ($self,$cmd,$line) = @_;
return (DENY, "Syntax error in command") unless $line =~ s/^from:\s*//i; return (DENY, "Syntax error in command") unless $line =~ s/^from:\s*//i;
print "parse_mail: $line\n";
return &_get_mail_params($cmd, $line); return &_get_mail_params($cmd, $line);
} }
### RFC 1869: ### RFC 1869: