X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=torn;h=e1f1cfc0d5eeacaae75bcb55e37a79ee13d30410;hb=66b4184a4272f672eb4e865fa2bd7c6869a724d5;hp=2fe88def679854e774c3a5b9f1d3e1fdd4f19af2;hpb=e0426fa5f2c74f2678bf328181e3f97300b549fa;p=torn.git diff --git a/torn b/torn index 2fe88de..e1f1cfc 100755 --- a/torn +++ b/torn @@ -76,6 +76,7 @@ opendir DIR, "." or die "Can not open directory\n"; foreach (sort readdir DIR) { # Skip directory itself next if /^\.{1,2}$/; + next if -d; $src_filename = $_; $src = decode "utf-8", $src_filename; @@ -111,7 +112,7 @@ foreach (sort readdir DIR) { $dst =~ s/Ю/Ju/g; # Lowercase file extensions - if($dst =~ /^(.*)\.([^\.]+)$/){ + if ($dst =~ /^(.*)\.([^\.]+)$/) { $dst = $1 . "." . lc $2; };