Update for new Mojo::Discord compatibility

[NDIRC.git] / Delling.pm

diff --git a/Delling.pm b/Delling.pm
index 41d87254ae6ea852db45c148504954f0e36398b2..fea261ed48246afc4200fede1883a350f1246534 100644 (file)
--- a/Delling.pm
+++ b/Delling.pm
@@ -175,7 +175,7 @@ sub refresh {
        }
        if (defined $row[1] && $stattick != $row[1]){
                $stattick = $row[1];
-               $self->toTarget(members => "New tick: $stattick");
+               $self->toTarget(spam => "New tick: $stattick");
        }
        my $ircreqs = $dbh->prepare(q{SELECT id,username,message,channel FROM irc_requests NATURAL JOIN users WHERE not sent});
        my $upircreq = $dbh->prepare(q{UPDATE irc_requests SET sent = TRUE WHERE id = ?});
@@ -220,8 +220,7 @@ after _start => sub {
 };
 
 after discord_message_create => sub {
-       my $self = shift;
-       my $hash = shift;
+       my ($self, $gw, $hash) = @_;
 
        my $author = $hash->{author};
        my $msg = $hash->{content};