Changeset 32620ac for perl/modules/IRC
- Timestamp:
- Apr 14, 2009, 10:35:27 AM (16 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 81a96af
- Parents:
- f9f065a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
r4df2568 r32620ac 110 110 my $body = strip_irc_formatting([$evt->args]->[0]); 111 111 my $nick = $self->nick; 112 BarnOwl::beep() if $body =~ /\b\Q$nick\E\b/;113 112 $body = '* '.$evt->nick.' '.$body if $evt->type eq 'caction'; 114 113 my $msg = $self->new_message($evt,
Note: See TracChangeset
for help on using the changeset viewer.