Nick Leverton noticed I left out a very important 'ref'. Thanks Nick!
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@306 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
703e539acc
commit
4d4baac96e
@ -243,7 +243,7 @@ sub run_hooks {
|
|||||||
} else {
|
} else {
|
||||||
my $cnotes = $self->connection->notes( $code->{name} );
|
my $cnotes = $self->connection->notes( $code->{name} );
|
||||||
$cnotes->{"hook_$hook"}->{'return'} = $r[0]
|
$cnotes->{"hook_$hook"}->{'return'} = $r[0]
|
||||||
if (!defined $cnotes || $cnotes eq "HASH");
|
if (!defined $cnotes || ref $cnotes eq "HASH");
|
||||||
}
|
}
|
||||||
|
|
||||||
# should we have a hook for "OK" too?
|
# should we have a hook for "OK" too?
|
||||||
|
Loading…
Reference in New Issue
Block a user