improved spacem method to handle unwritable names better (where perl was not happy...

[feisty_meow.git] / scripts / files / replace_spaces_with_underscores.sh

diff --git a/scripts/files/replace_spaces_with_underscores.sh b/scripts/files/replace_spaces_with_underscores.sh
index a26371d4a934a8fa3974befadd5d0ccb0e780d5f..3cbcfa89a84326537abe3430930e217fb848a4cf 100644 (file)
--- a/scripts/files/replace_spaces_with_underscores.sh
+++ b/scripts/files/replace_spaces_with_underscores.sh
@@ -16,7 +16,7 @@ while [ $# -gt 0 ]; do
   # in names.  then translate multiple underscores into just one.  then turn
   # number followed by underscore into just number (?).  then translate
   # underscore dash underscore into just dash.
-  newname="$(echo "$file" | tr -s ' ' '_' | tr -d "\$\!@&#%}{)(][\\\~',:?><\"" | sed -e 's/__/_/g' | sed -e 's/\([0-9]\)_\./\1./g' | sed -e 's/_-_/-/' )"
+  newname="$(echo "$file" | tr -s ' ' '_' | tr -d "\$\!|@&#%}{)(][\\\~',:?><\"" | sed -e 's/__/_/g' | sed -e 's/\([0-9]\)_\./\1./g' | sed -e 's/_-_/-/' )"
   if [ "$file" != "$newname" ]; then
     # we've effected a name change, so let's actually do it.
     echo "'$file' => '$newname'"