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
2004-09-06 17:36:57 +00:00 · 2004-09-06 17:36:57 +00:00 · 4d4baac96e
commit 4d4baac96e
parent 703e539acc
1 changed files with 1 additions and 1 deletions
--- a/lib/Qpsmtpd.pm
+++ b/lib/Qpsmtpd.pm
@ -243,7 +243,7 @@ sub run_hooks {
      } else {
        my $cnotes = $self->connection->notes( $code->{name} );
        $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?