[svn:qpsmtpd] r586 - trunk/lib

[email protected] 14 Dec 2005 01:21:21 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Tue Dec 13 17:21:20 2005
New Revision: 586

Modified:
   trunk/lib/Qpsmtpd.pm
Log:
Fix log bustage ($coworker)


Modified: trunk/lib/Qpsmtpd.pm
==============================================================================
--- trunk/lib/Qpsmtpd.pm	(original)
+++ trunk/lib/Qpsmtpd.pm	Tue Dec 13 17:21:20 2005
@@ -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 {