From 8eec8aa0c53064ef9f8e90761d6e3ca22d7a0848 Mon Sep 17 00:00:00 2001 From: timriker Date: Thu, 5 Dec 2002 04:21:18 +0000 Subject: [PATCH] strict git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@718 c11ca15a-4712-0410-83d8-924469b57eb5 --- blootbot/src/Modules/zfi.pl | 4 ++-- blootbot/src/Modules/zsi.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/blootbot/src/Modules/zfi.pl b/blootbot/src/Modules/zfi.pl index 0d4ed64..fd689d9 100644 --- a/blootbot/src/Modules/zfi.pl +++ b/blootbot/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/blootbot/src/Modules/zsi.pl b/blootbot/src/Modules/zsi.pl index 6a4a82e..faf2742 100644 --- a/blootbot/src/Modules/zsi.pl +++ b/blootbot/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); -- 2.39.5