From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 5 Dec 2002 04:21:18 +0000 (+0000)
Subject: strict
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ad83764f6a8dff4d15e16a81d2964d0ba7ea2a2b;p=infobot.git

strict


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@718 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Modules/zfi.pl b/src/Modules/zfi.pl
index 0d4ed64..fd689d9 100644
--- a/src/Modules/zfi.pl
+++ b/src/Modules/zfi.pl
@@ -66,7 +66,7 @@ sub queryText {
 	my $content = $response->content;
 
 	if ($content =~ /No entries found/im) {
-		return "$result No results were found searching ZFI for '$query'.";
+		return "No results were found searching ZFI for '$query'.";
 	}
 
 	my $res_count = 0; #local counter
@@ -75,7 +75,7 @@ sub queryText {
 	my @lines = split(/\n/,$content);
 
 	my $result = '';
-	foreach $line(@lines) {
+	foreach my $line (@lines) {
 		if (length($line) > 10) {
 			my ($name, $href, $desc) = split(/\|/,$line);
 
diff --git a/src/Modules/zsi.pl b/src/Modules/zsi.pl
index 6a4a82e..faf2742 100644
--- a/src/Modules/zsi.pl
+++ b/src/Modules/zsi.pl
@@ -66,7 +66,7 @@ sub queryText {
 	my $content = $response->content;
 
 	if ($content =~ /No entries found/im) {
-		return "$result No results were found searching ZSI for '$query'.";
+		return "No results were found searching ZSI for '$query'.";
 	}
 
 	my $res_count = 0; #local counter
@@ -75,7 +75,7 @@ sub queryText {
 	my @lines = split(/\n/,$content);
 
 	my $result = '';
-	foreach $line(@lines) {
+	foreach my $line (@lines) {
 		if (length($line) > 10) {
 			my ($name, $href, $desc) = split(/\|/,$line);