From: ivan <ivan>
Date: Tue, 25 May 2010 06:04:13 +0000 (+0000)
Subject: prevent "Can't locate object method "code" via package "HTML::Mason::Exception" errors
X-Git-Tag: freeside_1_9_4~83
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=fff9afbfb69730b3eb379ad85a42c029b2843c4e;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 71670f758..afe6c633b 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
+    : $@;
 
 }