summaryrefslogtreecommitdiffstats
path: root/spaceTo_
diff options
context:
space:
mode:
authorJérémy Zurcher <jeremy@asynk.ch>2014-11-26 08:36:31 +0100
committerJérémy Zurcher <jeremy@asynk.ch>2014-11-26 08:36:31 +0100
commitd1dd8750540a680b3de13f9fbaec76951c9bb173 (patch)
treee88b738ca39d52ead6e261a677e2a132518a42a2 /spaceTo_
parent620e0db443001d4f7ea594ca54f85fae45726ea1 (diff)
downloadbin-d1dd8750540a680b3de13f9fbaec76951c9bb173.zip
bin-d1dd8750540a680b3de13f9fbaec76951c9bb173.tar.gz
spaceTo_: indentation
Diffstat (limited to 'spaceTo_')
-rwxr-xr-xspaceTo_12
1 files changed, 6 insertions, 6 deletions
diff --git a/spaceTo_ b/spaceTo_
index 01ba9da..a8ab671 100755
--- a/spaceTo_
+++ b/spaceTo_
@@ -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);