From c0ff50bd5082bb6c7093d907864dd799d52c5a98 Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
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(-)
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