Changeset a8d5a39 for perl/modules/Jabber

Timestamp:

Jan 16, 2008, 9:58:09 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

84027015

Parents:

367fbf3

Message:

Remove more bad hacks.

File:

• perl/modules/Jabber/lib/XML/Stream.pm (modified) (1 diff)

perl/modules/Jabber/lib/XML/Stream.pm

@@ -1660 +1660 @@
         $self->debug(3,"Send: can_write");
 
-        my $sendstring = join("",@_);
-
-        Encode::_utf8_on($sendstring);
-        Encode::_utf8_off($sendstring) unless (Encode::is_utf8($sendstring, 1));
-
-        $self->{SENDSTRING} = Encode::encode_utf8($sendstring);
+        $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));
 
         $self->{SENDWRITTEN} = 0;