From 08d205212cb38478a18ac56ee0a49673611127d3 Mon Sep 17 00:00:00 2001 From: dms Date: Mon, 18 Sep 2000 12:01:34 +0000 Subject: [PATCH] typo for searchDesc list element git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@118 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/Modules/Debian.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl index a9aa599..16d4fac 100644 --- 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) ); -- 2.39.2