X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Ftype.pl;h=df289e693edc1aaa80866bd4f65bfc4b96dad5f9;hb=428e91daacae4fddcabc7e6279c1fbd40edbbe91;hp=e525f94e57529785363fbcd9a2f014106686ad1e;hpb=bad1ddf774c205e1cf0e012860d06481abbbb400;p=spider.git

diff --git a/cmd/type.pl b/cmd/type.pl
index e525f94e..df289e69 100644
--- 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";
 }