[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 {