From: Michael Andreen <harv@ruin.nu>
Date: Wed, 3 Jan 2018 15:45:27 +0000 (+0100)
Subject: Fix for perl 5.24
X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=commitdiff_plain;h=48c2e7d852234548bdce239b4441b7a98de408a2;hp=0fba113a979e0eff945c37271a79c8d9d9a7c47b

Fix for perl 5.24
---

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";