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

remove debug warnings

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@43 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-08-06 12:58:58 +00:00
parent 2ee95fc3fc
commit 6cf778d598
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Qpsmtpd.pm
View File

@ -359,7 +359,6 @@ sub data {
my ($rc, $msg) = $self->run_hooks("data_post"); my ($rc, $msg) = $self->run_hooks("data_post");
if ($rc != DONE) { if ($rc != DONE) {
warn "QPSM100";
return $self->queue($self->transaction); return $self->queue($self->transaction);
} }
@ -368,8 +367,6 @@ sub data {
sub queue { sub queue {
my ($self, $transaction) = @_; my ($self, $transaction) = @_;
warn "QPSM2000";
# these bits inspired by Peter Samuels "qmail-queue wrapper" # these bits inspired by Peter Samuels "qmail-queue wrapper"
pipe(MESSAGE_READER, MESSAGE_WRITER) or fault("Could not create message pipe"), exit; pipe(MESSAGE_READER, MESSAGE_WRITER) or fault("Could not create message pipe"), exit;
pipe(ENVELOPE_READER, ENVELOPE_WRITER) or fault("Could not create envelope pipe"), exit; pipe(ENVELOPE_READER, ENVELOPE_WRITER) or fault("Could not create envelope pipe"), exit;