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:
Robert Spier 2004-09-06 17:36:57 +00:00
parent 703e539acc
commit 4d4baac96e

View File

@ -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?