From c0ff50bd5082bb6c7093d907864dd799d52c5a98 Mon Sep 17 00:00:00 2001 From: David Phillips Date: Sun, 29 Jul 2018 22:36:15 +1200 Subject: Admin: rename join routine to avoid collision with CORE::join --- Plugin/Admin.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Plugin/Admin.pm') diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm index ad07da2..2a2a691 100644 --- a/Plugin/Admin.pm +++ b/Plugin/Admin.pm @@ -17,7 +17,7 @@ sub configure { $cmdref->("action", sub { $self->action(@_); } ); $cmdref->("nick", sub { $self->nick(@_); } ); - $cmdref->("join", sub { $self->join(@_); } ); + $cmdref->("join", sub { $self->join_channel(@_); } ); $cmdref->("part", sub { $self->part(@_); } ); $cmdref->("mode", sub { $self->mode(@_); } ); $cmdref->("kick", sub { $self->kick(@_); } ); @@ -74,7 +74,7 @@ sub action { $irc->yield(ctcp => $arguments[0] => "ACTION $rest"); } -sub join { +sub join_channel { my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; return unless is_admin($who); -- cgit v1.1