fix console.pl max scroll depth

[spider.git] / cmd / type.pl

diff --git a/cmd/type.pl b/cmd/type.pl
index e525f94e57529785363fbcd9a2f014106686ad1e..d4b98ef7d5a777a288a884702ac4b858ba378692 100644 (file)
--- a/cmd/type.pl
+++ b/cmd/type.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -16,9 +16,8 @@ my @slot;
 
 if (@f) {
        my $fn = lc $f[0];
-       $fn =~ s/\\/\//og;
-       $fn =~ s/\.//og;
-       $fn =~ s/^\///og;
+       $fn =~ s([^A-Za-z0-9_/])()g;
+       $fn =~ s(^/+)();
        $root = "$root/$fn";
 }