summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xspaceTo_5
1 files changed, 2 insertions, 3 deletions
diff --git a/spaceTo_ b/spaceTo_
index a8ab671..79647ac 100755
--- a/spaceTo_
+++ b/spaceTo_
@@ -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;
}