}
sub irc_invite {
- my ($self,$sender, $who, $channel) = @_[OBJECT,SENDER, HEAP, ARG0 .. ARG1];
+ my ($self,$sender, $who, $channel) = @_[OBJECT,SENDER, ARG0 .. ARG1];
my $irc = $sender->get_heap();
$irc->yield( join => $_ ) for grep /^$channel$/i, keys %{$self->disp->channels}