Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 03:55:42 -04:00
Code Issues Releases Wiki Activity

adding more correct nickname regex

Browse source
This commit is contained in:
Ryan Voots 2010-03-04 11:03:28 -05:00
parent 7e0822a9e5
commit b5df54f1d5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/karma_modify.pm
View file

@ -54,7 +54,7 @@ sub handle {
my( $self, $said, $pm ) = @_; my( $self, $said, $pm ) = @_;
my $body = $said->{body}; my $body = $said->{body};
if( $body =~ /\(([^\)]+)\)(\+\+|--)/ or $body =~ /(\w+)(\+\+|--)/ ) { if( $body =~ /\(([^\)]+)\)(\+\+|--)/ or $body =~ /([\w\[\]\\`_^{|}-]+)(\+\+|--)/ ) {
my( $subject, $op ) = ($1,$2); my( $subject, $op ) = ($1,$2);
if( $op eq '--' ) { $op = -1 } elsif( $op eq '++' ) { $op = 1 } if( $op eq '--' ) { $op = -1 } elsif( $op eq '++' ) { $op = 1 }
my $lirc = l_irc($subject) || lc $subject; my $lirc = l_irc($subject) || lc $subject;