X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=d2f4a4ff97c549b3b596ce62edf5530cb66d7d11;hb=d572c34d7d49a76310446ca0ccae4fbbaceb8224;hp=9b3a371b092a8e9cd651025153e26ca9c642a71d;hpb=6e6df48886f4ebdec69cf6980d066773b144fc82;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 9b3a371b..d2f4a4ff 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -541,7 +541,7 @@ sub run_cmd
 		$cmd =~ s|//+|/|g;
 
 		# check for length of whole command line and any invalid characters
-		if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}$|) {
+		if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}(?:/\d+)?$|) {
 			LogDbg('DXCommand', "cmd: $self->{call} - invalid characters in '$cmd'");
 			return $self->_error_out('e40');	
 		}