From 325bb77713494610e062bf12c7ee67dfaea81a5a Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sun, 5 Sep 2004 16:25:02 +0000
Subject: [PATCH] command is in $command not $_

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@299 958fd67b-6ff1-0310-b445-bb7760255be9
---
 t/Test/Qpsmtpd.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Test/Qpsmtpd.pm b/t/Test/Qpsmtpd.pm
index 7974ffc..c75744a 100644
--- a/t/Test/Qpsmtpd.pm
+++ b/t/Test/Qpsmtpd.pm
@@ -59,7 +59,7 @@ sub input {
   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;