1. Added talk mode so that I don't have to keep typing T <call> all the time.

[spider.git] / cmd / type.pl

diff --git a/cmd/type.pl b/cmd/type.pl
index e525f94e57529785363fbcd9a2f014106686ad1e..df289e693edc1aaa80866bd4f65bfc4b96dad5f9 100644 (file)
--- a/cmd/type.pl
+++ b/cmd/type.pl
@@ -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";
 }