From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 16 Apr 2021 15:14:58 +0000 (+0300)
Subject: FORCE_DIR ability
X-Git-Url: http://www.git.stargrave.org/?p=torn.git;a=commitdiff_plain;h=252fae71d79309d40494ffa22cecfe4e48ee87bc

FORCE_DIR ability
---

diff --git a/torn b/torn
index 5db4688..36d8c8f 100755
--- a/torn
+++ b/torn
@@ -25,7 +25,8 @@ files and rules to convert russian filenames to translit.
 =head1 USAGE
 
 Simply run this script in directory where you want files and/or
-directorires to be renamed.
+directories to be renamed. Directories are not transliterated by
+default, but you can use FORCE_DIR=1 environment variable.
 
 =head1 OVERVIEW
 
@@ -76,7 +77,7 @@ opendir DIR, "." or die "Can not open directory\n";
 foreach (sort readdir DIR) {
     # Skip directory itself
     next if /^\.{1,2}$/;
-    next if -d;
+    next if -d and not $ENV{FORCE_DIR};
 
     $src_filename = $_;
     $src = decode "utf-8", $src_filename;