#
# Dict.pl: Frontend to dict.org.
# Author: dms
-# Version: v0.6b (19991224).
+# Version: v0.6c (20000924).
# Created: 19990914.
#
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 {