Changeset 8574801 for perl


Ignore:
Timestamp:
Jan 16, 2008, 2:34:55 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:
3cc1582
Parents:
b7b4565
Message:
Patches to jabber libraries for better UTF-8 handling.
Location:
perl/modules/Jabber/lib
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/Net/XMPP/Debug.pm

    rc2bed55 r8574801  
    186186                    {
    187187                        $self->{HANDLE} = new FileHandle(">$args{file}");
     188                        binmode $self->{HANDLE}, ":utf8";
    188189                        if (defined($self->{HANDLE}))
    189190                        {
  • perl/modules/Jabber/lib/Net/XMPP/Message.pm

    rc2bed55 r8574801  
    135135                            $Mess->SetMessage(TO=>"bob\@jabber.org",
    136136                                              Subject=>"Lunch",
    137                                               BoDy=>"Let's do lunch!");
     137                                              Body=>"Let's do lunch!");
    138138                            $Mess->SetMessage(to=>"bob\@jabber.org",
    139139                                              from=>"jabber.org",
  • perl/modules/Jabber/lib/XML/Stream.pm

    r5073972 r8574801  
    16591659    {
    16601660        $self->debug(3,"Send: can_write");
    1661        
    1662         $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));
     1661
     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);
    16631668
    16641669        $self->{SENDWRITTEN} = 0;
Note: See TracChangeset for help on using the changeset viewer.