fix console.pl max scroll depth

[spider.git] / cmd / run.pl

diff --git a/cmd/run.pl b/cmd/run.pl
index 4a04c4cc7aecdfb190f028b14dd4f0752933ef14..a30c1972e13aedf77e1ac5f6740575b46000c407 100644 (file)
--- a/cmd/run.pl
+++ b/cmd/run.pl
@@ -5,7 +5,7 @@
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -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);