From fb0f97b12ea677c266ff616b736a74dd917b12fa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=A9my=20Zurcher?= <jeremy@asynk.ch>
Date: Tue, 22 Sep 2015 22:44:56 +0200
Subject: spaceTo_ : clean up

---
 spaceTo_ | 5 ++---
 1 file 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;
         }
-- 
cgit v1.1-2-g2b99