encode email text as utf8 to prevent 'wide character in syswrite' errors in email...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15040 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
index c2cf802..64826fd 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
@@ -6,6 +6,7 @@ use Email::Send;
 use OpenSRF::Utils::SettingsClient;
 use OpenILS::Application::Trigger::Reactor;
 use OpenSRF::Utils::Logger qw/:logger/;
+use utf8;
 $Data::Dumper::Indent = 0;
 
 use base 'OpenILS::Application::Trigger::Reactor';
@@ -47,6 +48,8 @@ sub handler {
     my $stat;
     my $err;
 
+    utf8::encode($text); # prevent "Wide character" errors in Email::Send
+
     try {
         $stat = $sender->send($text);
     } catch Error with {