From 4d4baac96ed53f84f45aaa98fae5a7b661cdc9b3 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Mon, 6 Sep 2004 17:36:57 +0000
Subject: [PATCH] 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
---
 lib/Qpsmtpd.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm
index ed826f6..d0921f6 100644
--- 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?