X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=04a1b2866e850daf066562cc469456f2f5a7fc4d;hb=975cdb91b06595491e639e4d46b923f29d68ad2f;hp=9b395c0cea691c70b543423c33dcf34509d48db6;hpb=0ea62428b633223f0e7c3f87af1a1afd1df9819b;p=spider.git 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;