Changeset 1af21e8 for perl/modules/IRC


Ignore:
Timestamp:
Feb 28, 2008, 6:13:45 PM (16 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r1951db8 r1af21e8  
    126126            BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '
    127127                . $self->alias) . "\n"
    128             . strip_irc_formatting(join '\n', cdr $evt->args));
     128            . strip_irc_formatting(join '\n', cdr($evt->args)));
    129129}
    130130
    131131sub on_motdstart {
    132132    my ($self, $evt) = @_;
    133     $self->motd(join "\n", cdr $evt->args);
     133    $self->motd(join "\n", cdr($evt->args));
    134134}
    135135
    136136sub on_motd {
    137137    my ($self, $evt) = @_;
    138     $self->motd(join "\n", $self->motd, cdr $evt->args);
     138    $self->motd(join "\n", $self->motd, cdr($evt->args));
    139139}
    140140
    141141sub on_endofmotd {
    142142    my ($self, $evt) = @_;
    143     $self->motd(join "\n", $self->motd, cdr $evt->args);
     143    $self->motd(join "\n", $self->motd, cdr($evt->args));
    144144    if(!$self->connected) {
    145145        BarnOwl::admin_message("IRC", "Connected to " .
Note: See TracChangeset for help on using the changeset viewer.