From 48c2e7d852234548bdce239b4441b7a98de408a2 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Wed, 3 Jan 2018 16:45:27 +0100
Subject: [PATCH] Fix for perl 5.24

---
 Delling.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Delling.pm b/Delling.pm
index 62a9d36..bf9bb9d 100644
--- a/Delling.pm
+++ b/Delling.pm
@@ -45,7 +45,7 @@ after irc_public => sub {
 
 	my $nickname = $irc->nick_name;
 	if ($msg =~ /^(\S+): (.+)$/ && $self->disp->has_command('anon',$channel)){
-		my $_ = $1;
+		local $_ = $1;
 		my $text = $2;
 		unless ($irc->is_channel_member($channel,$1) || /(Constructing|Researching)/){
 			$msg = ".anon $_ $text";
-- 
2.39.2