aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xidalius.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/idalius.pl b/idalius.pl
index 7de8238..d741a06 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -147,9 +147,9 @@ sub run_command {
# help POE realise when a connection is down. It otherwise seems to not realise
# a connection has fallen over otherwise.
sub custom_ping {
- my ($irc, $heap) = @_[KERNEL, HEAP];
- $irc->yield(userhost => $irc->nick_name());
- $irc->delay(custom_ping => $ping_delay);
+ my ($poek) = @_[KERNEL];
+ $poek->yield(userhost => $irc->nick_name());
+ $poek->delay(custom_ping => $ping_delay);
}
sub drop_priv {