Explicitly mention that Perl version is not supported

[torn.git] / torn.zsh

diff --git a/torn.zsh b/torn.zsh
index 3ea8becb14093734fe7b36466a376654b519ac6b..11d0fccfdc7920a209876bb21735d8327b5faa37 100755 (executable)
--- a/torn.zsh
+++ b/torn.zsh
@@ -1,5 +1,5 @@
 # torn - Musical files renaming with russian language transliteration
-# Copyright (C) 2007-2021 Sergey Matveev (stargrave@stargrave.org)
+# Copyright (C) 2021-2023 Sergey Matveev (stargrave@stargrave.org)
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -48,7 +48,7 @@ tornt() {
 tornm() {
     local n=$1
     n=${n:gs/ /_}
-    n=${n:gs/_-_/-}
+    n=${n//_[–-]_/-}
     n=${n:gs/,_/,}
     n=${n//[\[\]]/}
     n=${n:gs/_(/(}