#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
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);