cvs commit: qpsmtpd/lib Qpsmtpd.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/03 17:51:02
Modified: lib Qpsmtpd.pm
Log:
reindent undef check
Revision Changes Path
1.37 +5 -4 qpsmtpd/lib/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -w -r1.36 -r1.37
--- Qpsmtpd.pm 31 Aug 2004 01:58:57 -0000 1.36
+++ Qpsmtpd.pm 4 Sep 2004 00:51:02 -0000 1.37
@@ -226,6 +226,7 @@
$self->log(LOGINFO, "running plugin ", $code->{name});
eval { (@r) = $code->{code}->($self, $self->transaction, @_); };
$@ and $self->log(LOGCRIT, "FATAL PLUGIN ERROR: ", $@) and next;
+
!defined $r[0]
and $self->log(LOGERROR, "plugin ".$code->{name}
."running the $hook hook returned undef!")