[Rt-commit] r17342 - rt/3.8/trunk/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Dec 24 21:46:02 2008
New Revision: 17342

Modified:
   rt/3.8/trunk/lib/RT/Test.pm

Log:
* steal some quircks from HM

Modified: rt/3.8/trunk/lib/RT/Test.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Test.pm	(original)
+++ rt/3.8/trunk/lib/RT/Test.pm	Wed Dec 24 21:46:02 2008
@@ -52,10 +52,28 @@
 use warnings;
 
 use base 'Test::More';
+
 use Socket;
 use File::Temp;
 use File::Spec;
 
+our $SKIP_REQUEST_WORK_AROUND = 0;
+
+use HTTP::Request::Common ();
+use Hook::LexWrap;
+wrap 'HTTP::Request::Common::form_data',
+   post => sub {
+       return if $SKIP_REQUEST_WORK_AROUND;
+       my $data = $_[-1];
+       if (ref $data) {
+       $data->[0] = Encode::encode_utf8($data->[0]);
+       }
+       else {
+       $_[-1] = Encode::encode_utf8($_[-1]);
+       }
+   };
+
+
 our @EXPORT = qw(is_empty);
 
 my $config;