cvs commit: qpsmtpd/t/Test Qpsmtpd.pm
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/05 09:25:03
Modified: t/Test Qpsmtpd.pm
Log:
command is in $command not $_
Revision Changes Path
1.2 +1 -1 qpsmtpd/t/Test/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/t/Test/Qpsmtpd.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Qpsmtpd.pm 16 Jul 2004 02:22:27 -0000 1.1
+++ Qpsmtpd.pm 5 Sep 2004 16:25:02 -0000 1.2
@@ -59,7 +59,7 @@
alarm $timeout;
$command =~ s/\r?\n$//s; # advanced chomp
- $self->log(LOGDEBUG, "dispatching $_");
+ $self->log(LOGDEBUG, "dispatching $command");
defined $self->dispatch(split / +/, $command, 2)
or $self->respond(502, "command unrecognized: '$command'");
alarm $timeout;