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/kblamehost.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/kblamehost.pl')
| -rw-r--r-- | scripts/kblamehost.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/kblamehost.pl b/scripts/kblamehost.pl index d53fe78..86e4e23 100644 --- a/scripts/kblamehost.pl +++ b/scripts/kblamehost.pl @@ -1,7 +1,9 @@ #!/usr/bin/perl +use strict; use Irssi; use Irssi::Irc; +use vars qw($VERSION %IRSSI); $VERSION = "0.0.1"; %IRSSI = ( @@ -45,7 +47,7 @@ sub event_join # hostname, but array counts from 0 so element's count is number of dots my $is_friend = 0; - foreach $exclude (@excludes) + foreach my $exclude (@excludes) { $is_friend = 1 if ($hostname =~ $exclude); } |