Fix for perl 5.24

diff --git a/Delling.pm b/Delling.pm
index 62a9d363b3262483650e61750b554a81819220ef..bf9bb9d665d8e17cb0a5ca44710a308e0c767de4 100644 (file)
--- 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";