From: ivan <ivan>
Date: Tue, 25 May 2010 06:04:12 +0000 (+0000)
Subject: prevent "Can't locate object method "code" via package "HTML::Mason::Exception" errors
X-Git-Tag: root_of_svc_elec_features~236
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=306ebf9299ec7875e51320f1c2d7c2f5bc9dfe2c;p=freeside.git

prevent "Can't locate object method "code" via package "HTML::Mason::Exception" errors
---

diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm
index d973feb9f..b275c9dfc 100644
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -355,8 +355,9 @@ sub send_email {
   }
 
   eval { sendmail($message, { transport => $transport }); };
-  ref($@) ? ( $@->code ? $@->code.' ' : '' ). $@->message
-          : $@;
+  ref($@) eq 'Email::Sender::Failure'
+    ? ( $@->code ? $@->code.' ' : '' ). $@->message
+    : $@;
 
 }