Changeset 32620ac for perl

Timestamp:

Apr 14, 2009, 10:35:27 AM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

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

Message:

IRC: Don't beep on messages matching your nick.

Having this feature in there and not customizable is extremely poor
form, and we already have the 'personalbell' variable to enable this
feature if needed.

File:

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

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

@@ -110 +110 @@
     my $body = strip_irc_formatting([$evt->args]->[0]);
     my $nick = $self->nick;
-    BarnOwl::beep() if $body =~ /\b\Q$nick\E\b/;
     $body = '* '.$evt->nick.' '.$body if $evt->type eq 'caction';
     my $msg = $self->new_message($evt,