From 30aca6730da455e7c526985f50a34ed4784ded64 Mon Sep 17 00:00:00 2001 From: timriker Date: Wed, 22 Oct 2003 17:57:17 +0000 Subject: [PATCH] dinfo git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@855 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/CommandStubs.pl | 2 +- src/Modules/Debian.pl | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl index 3a2814c..c37729a 100644 --- a/src/CommandStubs.pl +++ b/src/CommandStubs.pl @@ -279,7 +279,7 @@ sub Modules { return; } - my $debiancmd = 'conflicts?|depends?|desc|file|d?info|provides?'; + my $debiancmd = 'conflicts?|depends?|desc|file|(?:d)?info|provides?'; $debiancmd .= '|recommends?|suggests?|maint|maintainer'; if ($message =~ /^($debiancmd)(\s+(.*))?$/i) { diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl index 8afaa86..45d7834 100644 --- a/src/Modules/Debian.pl +++ b/src/Modules/Debian.pl @@ -710,6 +710,8 @@ sub infoPackages { } my %pkg = &getPackageInfo($package, $file); + $query = "info" if ($query eq "dinfo"); + # 'fm'-like output. if ($query eq "info") { if (scalar keys %pkg <= 5) { -- 2.39.5