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/relm.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'scripts/relm.pl')

diff --git a/scripts/relm.pl b/scripts/relm.pl
index 96363cb..e71eb59 100644
--- a/scripts/relm.pl
+++ b/scripts/relm.pl
@@ -6,6 +6,7 @@
 ## to redirect last message to current channel/query:
 ## /RELM
 
+use strict;
 use Irssi;
 
 use vars qw($VERSION %IRSSI);
@@ -19,6 +20,8 @@ $VERSION = "1.0";
         changed         => "Fri Mar 15 15:09:42 CET 2002"
 );
 
+my %relm;
+
 sub cmd_relm {
 	my ($args, $server, $winit) = @_;
 	my $ircnet = lc($server->{tag});
@@ -28,7 +31,7 @@ sub cmd_relm {
 
 	$which = scalar(@{$relm{lc($ircnet)}}) unless ($which);
 
-	unless (@relm{$ircnet}) {
+	unless ($relm{$ircnet}) {
 		Irssi::print("%R>>%n Nothing in relm buffer on $ircnet.", MSGLEVEL_CRAP);
 		return;
 	}
-- 
cgit v1.2.3