diff options
| author | David Leadbeater | 2015-01-10 17:50:12 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:50:12 +0000 |
| commit | 3350aef6b04f0d33ad52b41179c6742a98d2aa1f (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/hitcount.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | 2d920d6f610e176bf121f9089f21956595df70e9 (diff) | |
| download | scripts.irssi.org-3350aef6b04f0d33ad52b41179c6742a98d2aa1f.tar.bz2 | |
Merge branch 'obfuscoder-perlcritic-e-l' into gh-pages
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>) { |