[Rt-commit] rt branch, 4.0-trunk, updated. rt-3.9.7-1186-g4bdef72

[Kevin Falcone]

The branch, 4.0-trunk has been updated
       via  4bdef722df1968148737eb78230c9dcfe0b8b702 (commit)
      from  6fcfffe750f1ef95505aaa0dc091ca46f7c1e600 (commit)

Summary of changes:
 lib/RT/Interface/Email.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 4bdef722df1968148737eb78230c9dcfe0b8b702
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Mon Jan 10 17:46:43 2011 -0500

    Work around a perl 5.10.1 bug
    
    (only seen on clean builds, not patched distro builds) where some utf8 strings
    are losing bytes to the whitespace stripping regexp.  Removing the case insensitive
    modified fixes this, and passes tests on 5.8.9, 5.10.1 and 5.12.1.  I also
    can't find a case where your Subject would have an uppercase unicode whitespace
    character...

diff --git a/lib/RT/Interface/Email.pm b/lib/RT/Interface/Email.pm
index 183263f..9ac96d7 100644
--- a/lib/RT/Interface/Email.pm
+++ b/lib/RT/Interface/Email.pm
@@ -1225,7 +1225,7 @@ sub AddSubjectTag {
     }
     return $subject if $subject =~ /\[$tag_re\s+#$id\]/;
 
-    $subject =~ s/(\r\n|\n|\s)/ /gi;
+    $subject =~ s/(\r\n|\n|\s)/ /g;
     chomp $subject;
     return "[". ($queue_tag || RT->Config->Get('rtname')) ." #$id] $subject";
 }

-----------------------------------------------------------------------