Changeset a8d5a39 for perl


Ignore:
Timestamp:
Jan 16, 2008, 9:58:09 PM (13 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/XML/Stream.pm

    r8574801 ra8d5a39  
    16601660        $self->debug(3,"Send: can_write");
    16611661
    1662         my $sendstring = join("",@_);
    1663 
    1664         Encode::_utf8_on($sendstring);
    1665         Encode::_utf8_off($sendstring) unless (Encode::is_utf8($sendstring, 1));
    1666 
    1667         $self->{SENDSTRING} = Encode::encode_utf8($sendstring);
     1662        $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));
    16681663
    16691664        $self->{SENDWRITTEN} = 0;
Note: See TracChangeset for help on using the changeset viewer.