add \\ character

diff --git a/cmd/run.pl b/cmd/run.pl
index 4a04c4cc7aecdfb190f028b14dd4f0752933ef14..cfe2d8a291945314b95bafc95781ccc1276bc531 100644 (file)
--- 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);