Changeset f8d9df1 for perl/modules/IRC/lib/BarnOwl/Module/IRC

Timestamp:

Feb 28, 2008, 6:18:34 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:

6119fbb

Parents:

dfb6c7d (diff), 1af21e8 (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 964-971 via svnmerge from 
file:///afs/sipb.mit.edu/project/barnowl/src/svn/trunk

........
  r966 | austein | 2008-02-24 03:39:48 -0500 (Sun, 24 Feb 2008) | 1 line
  
  HTML Filtering fix for BODY tag
........
  r971 | nelhage | 2008-02-28 18:13:45 -0500 (Thu, 28 Feb 2008) | 2 lines
  
  Add parenthesis to fix a perl error in IRC
........

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (1 diff)

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

@@ -126 +126 @@
             BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '
                 . $self->alias) . "\n"
-            . strip_irc_formatting(join '\n', cdr $evt->args));
+            . strip_irc_formatting(join '\n', cdr($evt->args)));
 }
 
 sub on_motdstart {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", cdr $evt->args);
+    $self->motd(join "\n", cdr($evt->args));
 }
 
 sub on_motd {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", $self->motd, cdr $evt->args);
+    $self->motd(join "\n", $self->motd, cdr($evt->args));
 }
 
 sub on_endofmotd {
     my ($self, $evt) = @_;
-    $self->motd(join "\n", $self->motd, cdr $evt->args);
+    $self->motd(join "\n", $self->motd, cdr($evt->args));
     if(!$self->connected) {
         BarnOwl::admin_message("IRC", "Connected to " .