cvs commit: qpsmtpd/lib Qpsmtpd.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/06 10:36:57
Modified: lib Qpsmtpd.pm
Log:
Nick Leverton noticed I left out a very important 'ref'. Thanks Nick!
Revision Changes Path
1.41 +1 -1 qpsmtpd/lib/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -w -r1.40 -r1.41
--- Qpsmtpd.pm 5 Sep 2004 16:28:08 -0000 1.40
+++ Qpsmtpd.pm 6 Sep 2004 17:36:57 -0000 1.41
@@ -243,7 +243,7 @@
} 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?