Merge pull request #83 from obfuscoder/perlcritic-s-z

Fix perlcritic issues for all scripts starting with s to z

1 files changed, 4 insertions, 3 deletions

diff --git a/scripts/tracknick.pl b/scripts/tracknick.pl
index 66d1e29..11d4987 100644
--- a/scripts/tracknick.pl
+++ b/scripts/tracknick.pl
@@ -26,6 +26,7 @@
 #  - support for runtime configuration + multiple nicks
 #  - support for /whois and some other commands? private messages?
 
+use strict;
 use Irssi;
 use Irssi::Irc;
 use vars qw($VERSION %IRSSI); 
@@ -37,7 +38,7 @@ $VERSION = "0.01";
     description => "Are you ever tired of those people who keep changing their nicks? Or maybe you just don't like someone's nick? This script lets you see them with the real nick all the time no matter what nick they're currently using.",
     license	=> "Public Domain",
     url		=> "http://irssi.org/",
-    changed	=> "2002-03-04T22:47+0100"

+    changed	=> "2002-03-04T22:47+0100"
 );
 
 # change these to the values you want them to be
@@ -89,11 +90,11 @@ sub find_realnick {
 
 	my @nicks = $channel->nicks();
 	$fakenick = '';
-	foreach $nick (@nicks) {
+	foreach my $nick (@nicks) {
 		my $realname = $nick->{realname};
 		if ($realname =~ /$realname_regexp/i) {
 			$fakenick = $nick->{nick};
-			break;
+			last;
 		}
 	}
 }