X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=080cf666ce0cbc3dc99032bbc4a1d9452af24bd1;hb=be05d6ea96d1b9bd023900eab7ec5d119d99853a;hp=5f89ac2369f7e28b48bec355ceacb12ad0627278;hpb=97917206e050a6584f89e53d63481eeea66ff43c;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 5f89ac23..080cf666 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -440,7 +440,7 @@ sub run_cmd # strip out // and .. on command only $cmd =~ s|//|/|g; $cmd =~ s|^/||g; # no leading / either - $cmd =~ s|[^-\w/]||g; # and no funny characters + $cmd =~ s|[^-?\w/]||g; # and no funny characters my ($path, $fcmd);