X-Git-Url: http://git.osdn.net/view?p=proj16%2F16.git;a=blobdiff_plain;f=make-lowercase;h=2cd4e2a2dc829c4b1eaae5446716a94d343fa9f7;hp=4e586f225afa21e9a84570fc186ad21ce6490b2b;hb=27341929f20173735232f3af6fe88a6176e2f7e6;hpb=f1605e99959acfb32b36ae875601fc14dd670742

diff --git a/make-lowercase b/make-lowercase
index 4e586f22..2cd4e2a2 100755
--- a/make-lowercase
+++ b/make-lowercase
@@ -2,62 +2,62 @@
 my $top=`pwd`; chomp $top;
 
 sub vfat_rename($$) {
-	my $from,$to;
-	($from,$to) = @_;
+    my $from,$to;
+    ($from,$to) = @_;
 
-	# uppercase DOS names with the vfat driver need some forceful convincing
-	# to actually make them lowercase
-	rename($from,"$to.xxx.xx");
-	rename("$to.xxx.xx",$to);
+    # uppercase DOS names with the vfat driver need some forceful convincing
+    # to actually make them lowercase
+    rename($from,"$to.xxx.xx");
+    rename("$to.xxx.xx",$to);
 }
 
 sub scan($) {
-	my $old = `pwd`; chomp $old;
-	my $cur = shift @_;
-	my @x;
-
-	print "scanning $cur\n";
-	chdir($cur) || die;
-
-	opendir(X,".") || return;
-	while (my $name = readdir(X)) {
-		next unless -f $name;
-		my $n = lc($name);
-		next if $n eq $name;
-		print "$name\n";
-		rename($name,$n) || die;
-		vfat_rename($name,$n);
-	}
-	closedir(X);
-
-	opendir(X,".") || return;
-	while (my $name = readdir(X)) {
-		next if $name =~ m/^\.+$/;
-		next if $name eq ".git";
-		next if $name eq ".GIT";
-		next unless -d $name;
-		my $n = lc($name);
-		next if $n eq $name;
-		print "$name\n";
-		rename($name,$n) || die;
-		vfat_rename($name,$n);
-	}
-	closedir(X);
-
-	opendir(X,".") || return;
-	while (my $name = readdir(X)) {
-		next if $name =~ m/^\.+$/;
-		next if $name eq ".git";
-		next if $name eq ".GIT";
-		next unless -d $name;
-		push(@x,$name);
-	}
-	closedir(X);
-	foreach my $name (@x) {
-		scan("$cur/$name");
-	}
-
-	chdir($old) || die;
+    my $old = `pwd`; chomp $old;
+    my $cur = shift @_;
+    my @x;
+
+    print "scanning $cur\n";
+    chdir($cur) || die;
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next unless -f $name;
+        my $n = lc($name);
+        next if $n eq $name;
+        print "$name\n";
+        rename($name,$n) || die;
+        vfat_rename($name,$n);
+    }
+    closedir(X);
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next if $name =~ m/^\.+$/;
+        next if $name eq ".git";
+        next if $name eq ".GIT";
+        next unless -d $name;
+        my $n = lc($name);
+        next if $n eq $name;
+        print "$name\n";
+        rename($name,$n) || die;
+        vfat_rename($name,$n);
+    }
+    closedir(X);
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next if $name =~ m/^\.+$/;
+        next if $name eq ".git";
+        next if $name eq ".GIT";
+        next unless -d $name;
+        push(@x,$name);
+    }
+    closedir(X);
+    foreach my $name (@x) {
+        scan("$cur/$name");
+    }
+
+    chdir($old) || die;
 }
 
 scan($top);