X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Frun.pl;h=cfe2d8a291945314b95bafc95781ccc1276bc531;hb=d31e215626887e26cf9dc1f1ece1f157f440fd15;hp=4a04c4cc7aecdfb190f028b14dd4f0752933ef14;hpb=ec57aa982f870daf09a1fc7839d06e52980cfb55;p=spider.git

diff --git a/cmd/run.pl b/cmd/run.pl
index 4a04c4cc..cfe2d8a2 100644
--- a/cmd/run.pl
+++ b/cmd/run.pl
@@ -19,7 +19,7 @@ while (@f) {
 		push @out, $self->msg('e5');
 		next;
 	}
-	$f =~ s|[^-\w/]||g;
+	$f =~ s|[^-\w/\\]||g;
 	my $script = new Script(lc $f);
 	unless ($script) {
 		push @out, $self->msg('e3', 'script', $f);