From ba48bae9582378ffc0eb0ae844a2d2c6c81ef59a Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Thu, 9 Aug 2018 17:07:04 +0200
Subject: [PATCH] [extract-tex.pl] Und noch ein Denkfehler.

---
 skripte/extract-tex.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/skripte/extract-tex.pl b/skripte/extract-tex.pl
index a92d705..2ad75d7 100644
--- a/skripte/extract-tex.pl
+++ b/skripte/extract-tex.pl
@@ -156,8 +156,8 @@ while (<>) {
 
     # Entferne Randtrennstellen.
     # TODO: Ergänze Option für »Gesangstext-Trennmuster«
-    $zeile =~ s/^ (.) [·<>=-]+/$1/x;
-    $zeile =~ s/[·<>=-]+ (.) $/$1/x;
+    $zeile =~ s/(^ | [<>=]) (.) [·<>=-]+/$1$2/gx;
+    $zeile =~ s/[·<>=-]+ (.) ($ | [<>=])/$1$2/gx;
 
     # Entferne einbuchstabige Trennstellen, falls verlangt.
     $zeile =~ s/- ([^·<>=-]) (?= [-<>=])/$1/gx if $opt_1;
-- 
2.11.4.GIT