From 55e10f5aeb6d0559518623a432263d4a73d7614b Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 24 Oct 2014 23:01:30 +0200
Subject: Fix perlcritic issues for all scripts starting with s to z

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

(limited to 'scripts/showhilight.pl')

diff --git a/scripts/showhilight.pl b/scripts/showhilight.pl
index 6ff00ad..4619f78 100644
--- a/scripts/showhilight.pl
+++ b/scripts/showhilight.pl
@@ -1,5 +1,6 @@
 # Print hilighted messages with MSGLEVEL_PUBLIC  to active window 
 # for irssi 0.7.99 by Paweł 'Styx' Chuchmała based on hilightwin.pl by Timo Sirainen
+use strict;
 use Irssi;
 use vars qw($VERSION %IRSSI); 
 $VERSION = "0.1";
@@ -21,7 +22,7 @@ sub sig_printtext {
   if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) && 
        ($window->{refnum} != $dest->{window}->{refnum}) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
 
-    $text = $dest->{target}.":%K[".Irssi::settings_get_str(hilight_color).$dest->{window}->{refnum}."%K]:".$text;
+    $text = $dest->{target}.":%K[".Irssi::settings_get_str('hilight_color').$dest->{window}->{refnum}."%K]:".$text;
 
     $window->print($text, MSGLEVEL_CLIENTCRAP);
   }
-- 
cgit v1.2.3