strict

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

diff --git a/blootbot/src/Modules/zfi.pl b/blootbot/src/Modules/zfi.pl
index 0d4ed649ae44eb87b906488640a18c36ec6f03c4..fd689d98d0474b0cb56ada2899d4bc5b5603eac9 100644 (file)
--- 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 6a4a82e7c27d4a1feca9c40588f28b03995ed39a..faf2742d2aefd910af4f0ee14f298e0f402c8400 100644 (file)
--- 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);