From dd80027b51b3ee71027a2612595aee38e38c0d6e Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Sun, 19 Oct 2014 11:54:16 +0200
Subject: Fix perlcritic issues for all scripts starting with m to r

---
 scripts/mass_hilight_blocker.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/mass_hilight_blocker.pl')

diff --git a/scripts/mass_hilight_blocker.pl b/scripts/mass_hilight_blocker.pl
index d5908ab..a5611a3 100644
--- a/scripts/mass_hilight_blocker.pl
+++ b/scripts/mass_hilight_blocker.pl
@@ -15,6 +15,7 @@
 # * 30.05.2004
 # first version of the script
 
+use strict;
 use Irssi;
 use vars qw($VERSION %IRSSI); 
 $VERSION = "0.2";
@@ -39,7 +40,7 @@ sub sig_printtext {
       my $server  =  $dest->{server};	# get server and channel for target
       my $channel =  $server->channel_find($dest->{target});
       
-      foreach $nick ($channel->nicks()) # walk through nicks
+      foreach my $nick ($channel->nicks()) # walk through nicks
         {
           $nick = $nick->{nick};
           $nick =~ s/([\]\[])/\\$1/g;	# ']' and '[' need masking
-- 
cgit v1.2.3