Changeset 9d59118 for perl/modules

Timestamp:

Mar 6, 2008, 3:29:18 PM (16 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:

5577606

Parents:

2d4ff14 (diff), 9815e2e (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merged revisions 975-982 via svnmerge from 
file:///afs/sipb.mit.edu/project/barnowl/src/svn/trunk

........
  r976 | nelhage | 2008-03-01 18:41:46 -0500 (Sat, 01 Mar 2008) | 2 lines
  
  Fix loading PAR modules that weren't present at startup
........
  r978 | nelhage | 2008-03-01 19:29:54 -0500 (Sat, 01 Mar 2008) | 2 lines
  
  Update perlwrap.pm documentation for the select() BarnOwl
........
  r980 | nelhage | 2008-03-03 11:44:52 -0500 (Mon, 03 Mar 2008) | 2 lines
  
  Render IRC notices as normal messages
........
  r981 | shadow | 2008-03-03 15:00:24 -0500 (Mon, 03 Mar 2008) | 3 lines
  
  ensure that even if ioctl(,TIOCGWINSZ,) returns 0s we never
  set g->lines (and g->cols) to 0
........
  r982 | nelhage | 2008-03-06 12:52:58 -0500 (Thu, 06 Mar 2008) | 2 lines
  
  Typo fix in docs
........

Location:

perl/modules

Files:

• IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (1 diff)
• Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (4 diffs)
• Jabber/lib/BarnOwl/Module/Jabber/Connection.pm (modified) (1 diff)
• Jabber/lib/Net/XMPP/Debug.pm (modified) (1 diff)
• Jabber/lib/Net/XMPP/Message.pm (modified) (1 diff)
• Jabber/lib/XML/Stream.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -51 +51 @@
             sub { shift; $self->on_msg(@_) });
     $self->conn->add_handler(['welcome', 'yourhost', 'created',
-            'luserclient', 'luserop', 'luserchannels', 'luserme',
-            'notice', 'error'],
+                              'luserclient', 'luserop', 'luserchannels', 'luserme',
+                              'error'],
             sub { shift; $self->on_admin_msg(@_) });
     $self->conn->add_handler(['myinfo', 'map', 'n_local', 'n_global',

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -25 +25 @@
 use Net::DNS;
 use Getopt::Long;
+
+use utf8;
 
 our $VERSION = 0.1;
@@ -377 +379 @@
                     $vars{jlogin_havepass} = 1;
                     $conn->removeConnection($jidStr);
-                    BarnOwl::start_password( "Password for $jidStr: ", \&do_login );
+                    BarnOwl::start_password("Password for $jidStr: ", \&do_login );
                     return "";
                 }
@@ -486 +488 @@
     }
     else {
-        $to = shift @ARGV;
+      $to = shift @ARGV;
     }
 
@@ -530 +532 @@
     $cmd .= " -t $jwrite_thread" if $jwrite_thread;
     $cmd .= " -s $jwrite_subject" if $jwrite_subject;
-    BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite );
+
+    BarnOwl::start_edit_win($cmd, \&process_owl_jwrite );
 }
 

perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

@@ -1 +1 @@
 use warnings;
 use strict;
+use utf8;
 
 =head1 NAME

perl/modules/Jabber/lib/Net/XMPP/Debug.pm

@@ -189 +189 @@
                         {
                             $self->{HANDLE}->autoflush(1);
+                            binmode $self->{HANDLE}, ":utf8";
                             $Net::XMPP::Debug::HANDLES{$args{file}} = $self->{HANDLE};
                         }

perl/modules/Jabber/lib/Net/XMPP/Message.pm

@@ -135 +135 @@
                             $Mess->SetMessage(TO=>"bob\@jabber.org",
                                               Subject=>"Lunch",
-                                              BoDy=>"Let's do lunch!");
+                                              Body=>"Let's do lunch!");
                             $Mess->SetMessage(to=>"bob\@jabber.org",
                                               from=>"jabber.org",

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

@@ -1659 +1659 @@
     {
         $self->debug(3,"Send: can_write");
-        
+
         $self->{SENDSTRING} = Encode::encode_utf8(join("",@_));