From 252fae71d79309d40494ffa22cecfe4e48ee87bc Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 16 Apr 2021 18:14:58 +0300
Subject: [PATCH] FORCE_DIR ability

---
 torn | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.44.0