diff options
author | Jérémy Zurcher <jeremy@asynk.ch> | 2014-11-26 08:36:31 +0100 |
---|---|---|
committer | Jérémy Zurcher <jeremy@asynk.ch> | 2014-11-26 08:36:31 +0100 |
commit | d1dd8750540a680b3de13f9fbaec76951c9bb173 (patch) | |
tree | e88b738ca39d52ead6e261a677e2a132518a42a2 | |
parent | 620e0db443001d4f7ea594ca54f85fae45726ea1 (diff) | |
download | bin-d1dd8750540a680b3de13f9fbaec76951c9bb173.zip bin-d1dd8750540a680b3de13f9fbaec76951c9bb173.tar.gz |
spaceTo_: indentation
-rwxr-xr-x | spaceTo_ | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3,15 +3,15 @@ # /bin/sh : NEW=`ls | sed s/\ /_/g | sed s/_-_/_/g ` sub proceed{ - my $dir=shift; - my $prefix=shift; - opendir(DIRHANDLE,$dir) || die "Cannot open dir $dir"; - while ($name=readdir(DIRHANDLE)){ + my $dir=shift; + my $prefix=shift; + opendir(DIRHANDLE,$dir) || die "Cannot open dir $dir"; + while ($name=readdir(DIRHANDLE)){ if($name =~m/^\./){ next; } my $ustring = "\x{b4}"; - my $new = $name; + my $new = $name; $new =~ s/ /_/g; $new =~ s/'/_/g; $new =~ s/[\[\]]/_/g; @@ -28,7 +28,7 @@ sub proceed{ rename($name, $new) || die "Unable to rename $name in $new."; } } - closedir(DIRHANDLE); + closedir(DIRHANDLE); } proceed(".", shift); |