typo for searchDesc list element

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

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index a9aa5997239e5e770644cb0e0acecc61bcd9680a..16d4fac4e007864234ea040e4befbb66c9544cb9 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/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) );