[open-ils-commits] r15041 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-11-30 10:32:24 -0500 (Mon, 30 Nov 2009)
New Revision: 15041

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
Log:
encode email text as utf8 to prevent 'wide character in syswrite' errors in email::send

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-11-30 15:31:43 UTC (rev 15040)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-11-30 15:32:24 UTC (rev 15041)
@@ -6,6 +6,7 @@
 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 @@
     my $stat;
     my $err;
 
+    utf8::encode($text); # prevent "Wide character" errors in Email::Send
+
     try {
         $stat = $sender->send($text);
     } catch Error with {