[Rt-commit] [svn] r1296 - rt/branches/3.2-RELEASE/lib/RT

[alexmv at pallas.eruditorum.org]

Author: alexmv
Date: Fri Jul 30 15:59:24 2004
New Revision: 1296

Modified:
   rt/branches/3.2-RELEASE/lib/RT/EmailParser.pm
Log:
 * Fix "Unrecognised line: foo at bar" caused by 5.8.0 not matching utf8
   against regexps


Modified: rt/branches/3.2-RELEASE/lib/RT/EmailParser.pm
==============================================================================
--- rt/branches/3.2-RELEASE/lib/RT/EmailParser.pm	(original)
+++ rt/branches/3.2-RELEASE/lib/RT/EmailParser.pm	Fri Jul 30 15:59:24 2004
@@ -467,6 +467,8 @@
     my $self = shift;
     my $Addr = shift;
 
+    # Perl 5.8.0 breaks when doing regex matches on utf8
+    Encode::_utf8_off($Addr) if $] == 5.008;
     my @Addresses = Mail::Address->parse($Addr);
 
     my $AddrObj = $Addresses[0];