From 1ecf5a4d2f44297f6604a9789f0674f59134285a Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 24 Sep 2000 11:51:21 +0000
Subject: [PATCH] moved a few lines from CommandStubs.pl here
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@139 c11ca15a-4712-0410-83d8-924469b57eb5
---
blootbot/src/Modules/Dict.pl | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/blootbot/src/Modules/Dict.pl b/blootbot/src/Modules/Dict.pl
index 3e613a5..1450107 100644
--- a/blootbot/src/Modules/Dict.pl
+++ b/blootbot/src/Modules/Dict.pl
@@ -1,7 +1,7 @@
#
# Dict.pl: Frontend to dict.org.
# Author: dms
-# Version: v0.6b (19991224).
+# Version: v0.6c (20000924).
# Created: 19990914.
#
@@ -22,6 +22,12 @@ sub Dict {
my $socket = new IO::Socket;
my @results;
+ for ($query) {
+ s/^[\s\t]+//;
+ s/[\s\t]+$//;
+ s/[\s\t]+/ /;
+ }
+
# connect.
socket($socket, PF_INET, SOCK_STREAM, $proto) or return "error: socket: $!";
eval {
--
2.39.5