Changeset 1af21e8 for perl

Timestamp:

Feb 28, 2008, 6:13:45 PM (17 years ago)

Author:

Nelson Elhage <nelhage@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:

e322b7c, 61abb18

Parents:

3bcf125

Message:

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 " .