[985] in BarnOwl Developers
[D-O-H] r971 - trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:11:51 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Thu, 28 Feb 2008 18:13:46 -0500 (EST)
Author: nelhage
Date: 2008-02-28 18:13:45 -0500 (Thu, 28 Feb 2008)
New Revision: 971
Modified:
trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
Log:
Add parenthesis to fix a perl error in IRC
Modified: trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
===================================================================
--- trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm 2008-02-25 21:25:13 UTC (rev 970)
+++ trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm 2008-02-28 23:13:45 UTC (rev 971)
@@ -125,22 +125,22 @@
BarnOwl::admin_message("IRC",
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 " .
$self->server . " (" . $self->alias . ")");
