[open-ils-commits] r15040 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-11-30 10:31:43 -0500 (Mon, 30 Nov 2009)
New Revision: 15040

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-11-30 14:14:23 UTC (rev 15039)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm	2009-11-30 15:31:43 UTC (rev 15040)
@@ -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 {