From 5910aa7292363287bbffe5daed7b22944bcd62c5 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Wed, 14 Dec 2005 01:21:20 +0000
Subject: [PATCH] Fix log bustage ($coworker)

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

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index 9914f10..ad56b36 100644
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@@ -382,7 +382,7 @@ sub run_hook {
   my ($self, $hook, $code, @args) = @_;
   my @r;
   if ( $hook eq 'logging' ) { # without calling $self->log()
-    eval { (@r) = $code->{code}->($self, $self->{_transaction}, @_); };
+    eval { (@r) = $code->{code}->($self, $self->{_transaction}, @args); };
     $@ and warn("FATAL LOGGING PLUGIN ERROR: ", $@) and next;
   }
   else {