[Rt-commit] r10717 - rt/branches/3.999-DANGEROUS/t/web

[ruz at bestpractical.com]

Author: ruz
Date: Mon Feb  4 16:14:15 2008
New Revision: 10717

Modified:
   rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t

Log:
* fix t/web/gnupg-outgoing.t

Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t	Mon Feb  4 16:14:15 2008
@@ -338,7 +338,7 @@
 sub cleanup_headers {
     my $mail = shift;
     # strip id from subject to create new ticket
-    $mail =~ s/^(Subject:)\s*\[.*?\s+#\d+\]\s*/$1 /m;
+    $mail =~ s/^(Subject:)\s*\[.*?\s+#\d+\]\s*/$1 /mi;
     # strip several headers
     foreach my $field ( qw(Message-ID X-RT-Original-Encoding RT-Originator RT-Ticket X-RT-Loop-Prevention) ) {
         $mail =~ s/^$field:.*?\n(?! |\t)//gmsi;