byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix log bustage ($coworker)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@586 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-12-14 01:21:20 +00:00
parent bf5eea44c2
commit 5910aa7292
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd.pm
View File

@ -382,7 +382,7 @@ sub run_hook {
my ($self, $hook, $code, @args) = @_; my ($self, $hook, $code, @args) = @_;
my @r; my @r;
if ( $hook eq 'logging' ) { # without calling $self->log() 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; $@ and warn("FATAL LOGGING PLUGIN ERROR: ", $@) and next;
} }
else { else {