From 240b4a6df0bb9394bfcbcf28e6b1e8c7346ab0a6 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 9 Oct 2017 19:40:32 -0700
Subject: [PATCH] Fix scalar keys thing

---
 PBot/Plugins/AntiTwitter.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/PBot/Plugins/AntiTwitter.pm b/PBot/Plugins/AntiTwitter.pm
index 1e9a6527..b2770146 100644
--- a/PBot/Plugins/AntiTwitter.pm
+++ b/PBot/Plugins/AntiTwitter.pm
@@ -78,12 +78,12 @@ sub adjust_offenses {
   my $self = shift;
   my $now = gettimeofday;
 
-  foreach my $channel (keys $self->{offenses}) {
-    foreach my $nick (keys $self->{offenses}->{$channel}) {
+  foreach my $channel (keys %{ $self->{offenses} }) {
+    foreach my $nick (keys %{ $self->{offenses}->{$channel} }) {
       if ($now - $self->{offenses}->{$channel}->{$nick}->{time} >= 60 * 60 * 24 * 7) {
         if (--$self->{offenses}->{$channel}->{$nick}->{offenses} <= 0) {
           delete $self->{offenses}->{$channel}->{$nick};
-          delete $self->{offenses}->{$channel} if not keys $self->{offenses}->{$channel};
+          delete $self->{offenses}->{$channel} if not keys %{ $self->{offenses}->{$channel} };
         }
       }
     }