Author: jm
Date: Thu Feb 5 19:36:06 2004
New Revision: 6529
Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm
Log:
some error-avoidance in plugin support
Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm Thu Feb 5 19:36:06 2004
@@ -89,7 +89,12 @@
dbg ("plugin: calling $subname on $plugin");
my $methodref = $plugin->can ($subname);
- $ret = &$methodref ($plugin, @_);
+
+ if (defined $methodref) {
+ eval {
+ $ret = &$methodref ($plugin, @_);
+ };
+ }
if ($plugin->{_inhibit_further_callbacks}) {
dbg ("plugin: $plugin inhibited further callbacks");
Date: Thu Feb 5 19:36:06 2004
New Revision: 6529
Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm
Log:
some error-avoidance in plugin support
Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PluginHandler.pm Thu Feb 5 19:36:06 2004
@@ -89,7 +89,12 @@
dbg ("plugin: calling $subname on $plugin");
my $methodref = $plugin->can ($subname);
- $ret = &$methodref ($plugin, @_);
+
+ if (defined $methodref) {
+ eval {
+ $ret = &$methodref ($plugin, @_);
+ };
+ }
if ($plugin->{_inhibit_further_callbacks}) {
dbg ("plugin: $plugin inhibited further callbacks");