develooper Front page | perl.cvs.qpsmtpd | Postings from December 2005

[svn:qpsmtpd] r586 - trunk/lib

From:
msergeant
Date:
December 13, 2005 17:21
Subject:
[svn:qpsmtpd] r586 - trunk/lib
Message ID:
20051214012121.21882.qmail@x1.develooper.com
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 {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About