Fix perlcritic issues for all scripts starting with e to l

1 files changed, 3 insertions, 2 deletions

diff --git a/scripts/hilightwin.pl b/scripts/hilightwin.pl
index f7af8a7..cb54ef2 100644
--- a/scripts/hilightwin.pl
+++ b/scripts/hilightwin.pl
@@ -6,6 +6,7 @@
 # window (can be toggled) and to put up a timestamp.
 #
 
+use strict;
 use Irssi;
 use POSIX;
 use vars qw($VERSION %IRSSI); 
@@ -34,7 +35,7 @@ sub sig_printtext {
         ($dest->{level} & ($opt)) &&
         ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0
     ) {
-        $window = Irssi::window_find_name('hilight');
+        my $window = Irssi::window_find_name('hilight');
         
         if ($dest->{level} & MSGLEVEL_PUBLIC) {
             $text = $dest->{target}.": ".$text;
@@ -47,7 +48,7 @@ sub sig_printtext {
     }
 }
 
-$window = Irssi::window_find_name('hilight');
+my $window = Irssi::window_find_name('hilight');
 Irssi::print("Create a window named 'hilight'") if (!$window);
 
 Irssi::settings_add_bool('hilightwin','hilightwin_showprivmsg',1);