[900] in BarnOwl Developers
[D-O-H] r888 - branches/barnowl_unicode/owl/perl/modules/Jabber/lib/XML
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:10:55 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Wed, 16 Jan 2008 21:58:09 -0500 (EST)
Author: asedeno
Date: 2008-01-16 21:58:09 -0500 (Wed, 16 Jan 2008)
New Revision: 888
Modified:
branches/barnowl_unicode/owl/perl/modules/Jabber/lib/XML/Stream.pm
Log:
unicode/glib branch
Remove more bad hacks.
Modified: branches/barnowl_unicode/owl/perl/modules/Jabber/lib/XML/Stream.pm
===================================================================
--- branches/barnowl_unicode/owl/perl/modules/Jabber/lib/XML/Stream.pm 2008-01-17 02:54:55 UTC (rev 887)
+++ branches/barnowl_unicode/owl/perl/modules/Jabber/lib/XML/Stream.pm 2008-01-17 02:58:09 UTC (rev 888)
@@ -1659,13 +1659,8 @@
{
$self->debug(3,"Send: can_write");
- my $sendstring = join("",@_);
+ $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));
- Encode::_utf8_on($sendstring);
- Encode::_utf8_off($sendstring) unless (Encode::is_utf8($sendstring, 1));
-
- $self->{SENDSTRING} = Encode::encode_utf8($sendstring);
-
$self->{SENDWRITTEN} = 0;
$self->{SENDOFFSET} = 0;
$self->{SENDLENGTH} = length($self->{SENDSTRING});
