From b9dca51d2a906219a6cb9465c92c65da71786680 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Fri, 16 Jul 2004 09:44:39 +0000
Subject: [PATCH] fix minor warning introduced with the data hook

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

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index de37872..884b1f6 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -487,7 +487,7 @@ sub data {
   #$self->respond(550, $self->transaction->blocked),return 1 if ($self->transaction->blocked);
   $self->respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size;
 
-  my ($rc, $msg) = $self->run_hooks("data_post");
+  ($rc, $msg) = $self->run_hooks("data_post");
   if ($rc == DONE) {
     return 1;
   }