From d84f1e1808b3252af83e4963eccfd1e4f19c5326 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 22:54:13 +0200
Subject: Fix perlcritic issues for all scripts starting with e to l

---
 scripts/hitcount.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts/hitcount.pl')

diff --git a/scripts/hitcount.pl b/scripts/hitcount.pl
index 3af36e1..545aee0 100644
--- a/scripts/hitcount.pl
+++ b/scripts/hitcount.pl
@@ -1,5 +1,6 @@
 # $Id: hitcount.pl,v 1.3.2.2 2002/03/05 18:19:28 shrike Exp shrike $
 
+use strict;
 use vars qw($VERSION %IRSSI);
 my @rev = split(/ /, "$Revision: 1.3.2.2 $n");
 $VERSION = "1.3";
@@ -49,7 +50,6 @@ $VERSION = "1.3";
 # Add ignore regexp, to prevent f.ex. css-files from increasing counter
 
 use Irssi::TextUI;
-use strict;
 
 # Debug level - higher levels print out more crap
 my $debug_level = 0;
@@ -73,7 +73,7 @@ sub get_hitcount {
     ($total_hitcount, $my_hitcount) = (0);
     
     # Go through the access log and count matches to the given regexp
-    if(open STUFF, "$filename")
+    if(open STUFF, "<", $filename)
     {
    	while (<STUFF>) 
 	{
-- 
cgit v1.2.3