X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Ftype.pl;h=d4b98ef7d5a777a288a884702ac4b858ba378692;hb=f63d598af3f797b56b8d5e23ec4ff5254192eee9;hp=e525f94e57529785363fbcd9a2f014106686ad1e;hpb=bad1ddf774c205e1cf0e012860d06481abbbb400;p=spider.git diff --git a/cmd/type.pl b/cmd/type.pl index e525f94e..d4b98ef7 100644 --- 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"; }