Remove debug print

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@680 958fd67b-6ff1-0310-b445-bb7760255be9
2006-12-08 20:55:47 +00:00 · 2006-12-08 20:55:47 +00:00 · 5fea527ba4
commit 5fea527ba4
parent 2b709d664c
1 changed files with 0 additions and 1 deletions
--- a/lib/Qpsmtpd/Command.pm
+++ b/lib/Qpsmtpd/Command.pm
@ -99,7 +99,6 @@ sub parse_rcpt {
 sub parse_mail {
    my ($self,$cmd,$line) = @_;
    return (DENY, "Syntax error in command") unless $line =~ s/^from:\s*//i;
-    print "parse_mail: $line\n";
    return &_get_mail_params($cmd, $line);
 }
 ### RFC 1869: