From 975cdb91b06595491e639e4d46b923f29d68ad2f Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 6 Jan 2006 22:37:55 +0000 Subject: [PATCH] fix rcmd sh/fdx problem --- Changes | 2 ++ cmd/show/dx.pl | 2 +- perl/DXCommandmode.pm | 3 ++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 158ab7ab..ec2f81c4 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +06Jan06======================================================================= +1. Fix problem with rcmd sh/fdx 27Dec05======================================================================= 1. put some more flesh on the SQL stuff (which may turn out to be a bit of a red herring as it doesn't appear to be significantly faster (for spots) than diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index fd3adeb0..31809a73 100644 --- a/cmd/show/dx.pl +++ b/cmd/show/dx.pl @@ -373,7 +373,7 @@ foreach $ref (@res) { push @out, VE7CC::dx_spot($self, @$ref); } else { if ($real) { - push @out, $self->format_dx_spot(@$ref); + push @out, DXCommandmode::format_dx_spot($self, @$ref); } else { push @out, Spot::formatl(@$ref); } diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 9b395c0c..04a1b286 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -432,7 +432,8 @@ sub run_cmd return () if length $cmdline == 0; - + + # split the command line up into parts, the first part is the command my ($cmd, $args) = split /\s+/, $cmdline, 2; $args = "" unless defined $args; -- 2.34.1