X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Ftype.pl;h=df289e693edc1aaa80866bd4f65bfc4b96dad5f9;hb=8e45a3dac2e136dc0c9d6f1e78f8c048a8d7ba21;hp=e525f94e57529785363fbcd9a2f014106686ad1e;hpb=32849fc856cb0cb825657c0013dfefb125a96bab;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";
 }