diff options
| author | Obfuscoder | 2014-10-17 22:54:13 +0200 |
|---|---|---|
| committer | Obfuscoder | 2014-10-19 10:28:41 +0200 |
| commit | d84f1e1808b3252af83e4963eccfd1e4f19c5326 (patch) | |
| tree | 18b64164a95e6ba73e50d4ce9938e9760ad8a217 /scripts/hitcount.pl | |
| parent | 263a56d196da657b72ccf2b195b50008d6a988dc (diff) | |
| download | scripts.irssi.org-d84f1e1808b3252af83e4963eccfd1e4f19c5326.tar.bz2 | |
Fix perlcritic issues for all scripts starting with e to l
Diffstat (limited to 'scripts/hitcount.pl')
| -rw-r--r-- | scripts/hitcount.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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>) { |