From 88881221e12fdb6bcff456399f5f7e254664fbe2 Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Wed, 15 Mar 2023 13:20:20 +0100
Subject: [PATCH] =?utf8?q?extract-tex.pl:=20Vereinfache=20regul=C3=A4re=20?=
 =?utf8?q?Ausdr=C3=BCcke.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Die Einträge in »wortliste« sind wohlgestaltet; es ist daher nicht
notwendig, alle denkbaren Formen zu behandeln.
---
 skripte/wortliste/extract-tex.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/skripte/wortliste/extract-tex.pl b/skripte/wortliste/extract-tex.pl
index 48b090e..3ef70e3 100644
--- a/skripte/wortliste/extract-tex.pl
+++ b/skripte/wortliste/extract-tex.pl
@@ -356,7 +356,7 @@ while (<<>>) {
 
     if ($opt_1) {
       # Schritt 3a: »a-b>c« wird zu »ab>c«.
-      $zeile =~ s/[-.]+ (?= $buchstabe [<>=] [·<>=]* )//gx;
+      $zeile =~ s/[-.]+ (?= $buchstabe [<>=] )//gx;
       #             »a<=b-c« wird zu »a<=bc«.
       $zeile =~ s/[<>=] [·<>=]* $buchstabe \K [-.]+//gx;
 
@@ -371,7 +371,7 @@ while (<<>>) {
 
     # Schritt 4: »a<·b« wird zu »ab«.
     # TODO: Ergänze Option für »Gesangstext-Trennmuster«
-    $zeile =~ s/($buchstabe) [.·<>=-]* ·+ [.·<>=-]*/$1/gx;
+    $zeile =~ s/($buchstabe) $marker* ·+/$1/gx;
 
     # Schritt 5: »a.b« wird zu »a-b«.
     $zeile =~ s/\./-/gx;
-- 
2.11.4.GIT