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 71670f7..afe6c63 100644 (file)
--- 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
+    : $@;
 
 }