From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 18 Sep 2000 12:01:34 +0000 (+0000)
Subject: typo for searchDesc list element
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d21bf189d75a6e5f579a7955fffef04a6c174588;p=infobot.git

typo for searchDesc list element


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

diff --git a/blootbot/src/Modules/Debian.pl b/blootbot/src/Modules/Debian.pl
index a9aa599..16d4fac 100644
--- a/blootbot/src/Modules/Debian.pl
+++ b/blootbot/src/Modules/Debian.pl
@@ -448,8 +448,8 @@ sub searchDesc {
 	my $prefix = "Debian Desc Search of '$query' ";
 	&main::performStrictReply( &main::formListReply(0, $prefix, ) );
     } elsif (scalar @list == 1) {	# list = 1.
-	&main::DEBUG("list == 1; showing package info of '$query'.");
-	&infoPackages("info", $query);
+	&main::DEBUG("list == 1; showing package info of '$list[0]'.");
+	&infoPackages("info", $list[0]);
     } else {				# list > 1.
 	my $prefix = "Debian Desc Search of '$query' ";
 	&main::performStrictReply( &main::formListReply(0, $prefix, @list) );