From: minima Date: Thu, 17 Oct 2002 03:06:16 +0000 (+0000) Subject: fix blank spaces X-Git-Tag: PRE-1-52~132 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f3f6df26560263f3b8b40785d00bbbd277d5a0c;p=spider.git fix blank spaces --- diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 42b2efbb..9e9a708e 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -470,7 +470,7 @@ sub run_cmd return (); } } - return map {s/[^\s]\s+$//; $_} @ans; + return map {s/([^\s])\s+$/$1/; $_} @ans; } #