diff options
-rwxr-xr-x | spaceTo_ | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -10,17 +10,16 @@ sub proceed{ if($name =~m/^\./){ next; } - my $ustring = "\x{b4}"; my $new = $name; + my $ustring = "\x{b4}"; + $new =~ s/$ustring/_/g; $new =~ s/ /_/g; $new =~ s/'/_/g; $new =~ s/[\[\]]/_/g; - $new =~ s/$ustring/_/g; $new =~ s/\._/_/g; $new =~ s/_+\./\./g; $new =~ s/[_-](-*_*)+/_/g; $new =~ s/\\/-/g; - $new =~ s/\\/-/g; if(defined($prefix)){ $new =~ s/^$prefix//g; } |