[Catalyst-commits] r7727 - Catalyst-Engine-XMPP2/trunk/lib/Catalyst/Engine

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-05-09 00:12:57 +0100 (Fri, 09 May 2008)
New Revision: 7727

Modified:
   Catalyst-Engine-XMPP2/trunk/lib/Catalyst/Engine/XMPP2.pm
Log:
[C-E-XMPP2] That encode was unnecessay

Modified: Catalyst-Engine-XMPP2/trunk/lib/Catalyst/Engine/XMPP2.pm
===================================================================
--- Catalyst-Engine-XMPP2/trunk/lib/Catalyst/Engine/XMPP2.pm	2008-05-08 19:10:48 UTC (rev 7726)
+++ Catalyst-Engine-XMPP2/trunk/lib/Catalyst/Engine/XMPP2.pm	2008-05-08 23:12:57 UTC (rev 7727)
@@ -141,7 +141,7 @@
 
         $request->header('XMPP_Stanza_'.$_ => $node->attr($_))
           for grep { $node->attr($_) } qw(to from id type xml:lang);
-        my $content = encode('utf8', join '', $node->text, map { $_->as_string } $node->nodes);
+        my $content = join '', $node->text, map { $_->as_string } $node->nodes;
         $request->content_length( length($content) );
         $request->content( $content);