From 30aca6730da455e7c526985f50a34ed4784ded64 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
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