GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-26 22:09:26 +01:00
Code Issues Projects Releases Wiki Activity

Move lc out of loop (does Perl already optimize for this?)

Browse Source
This commit is contained in:
Pragmatic Software 2017-12-02 15:05:30 -08:00
parent 3ab8f44a8a
commit 8ac79a4cb2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PBot/Commands.pm
View File

@ -80,8 +80,9 @@ sub exists {
my $self = shift; my $self = shift;
my ($keyword) = @_; my ($keyword) = @_;
$keyword = lc $keyword;
foreach my $ref (@{ $self->{handlers} }) { foreach my $ref (@{ $self->{handlers} }) {
return 1 if $ref->{name} eq lc $keyword; return 1 if $ref->{name} eq $keyword;
} }
return 0; return 0;
} }