X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=ac141b363cd0942462f6f0634fc17a5852117869;hb=0e1727bfb23ddea7bc272776b5b5c4f9c432e65f;hp=aa6f743d39d3657546cee962364193c26b4ac044;hpb=eb4918707eb5fa97782c3c15aafdbc8cce44d446;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index aa6f743d..ac141b36 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -418,15 +418,14 @@ sub run_cmd
 
 	return () if length $cmdline == 0;
 		
-	# strip out //
-	$cmdline =~ s|//|/|og;
-		
 	# split the command line up into parts, the first part is the command
 	my ($cmd, $args) = split /\s+/, $cmdline, 2;
 	$args = "" unless defined $args;
 		
 	if ($cmd) {
-			
+		# strip out // on command only
+		$cmd =~ s|//|/|g;
+					
 		my ($path, $fcmd);
 			
 		dbg("cmd: $cmd") if isdbg('command');