Author: vetinari
Date: Wed Mar 19 23:27:42 2008
New Revision: 872
Modified:
trunk/lib/Qpsmtpd.pm
Log:
make hook_*_parse() work again
Modified: trunk/lib/Qpsmtpd.pm
==============================================================================
--- trunk/lib/Qpsmtpd.pm (original)
+++ trunk/lib/Qpsmtpd.pm Wed Mar 19 23:27:42 2008
@@ -461,7 +461,9 @@
last unless $r[0] == DECLINED;
}
$r[0] = DECLINED if not defined $r[0];
- @r = map { split /\n/ } @r;
+ # hook_*_parse() may return a CODE ref..
+ # ... which breaks when splitting as string:
+ @r = map { split /\n/ } @r unless (ref($r[1]) eq "CODE");
return $self->hook_responder($hook, [EMAIL PROTECTED], $args);
}