From 6cd966ead97a9f800f33eaa92cfeeb9c2c185a7a Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Tue, 22 Dec 2020 20:54:08 +0100
Subject: [PATCH] extract-tex.pl: Korrigiere Behandlung von Feld 8.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Die Definition hat sich vor einiger Zeit geändert...
---
 skripte/wortliste/extract-tex.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/skripte/wortliste/extract-tex.pl b/skripte/wortliste/extract-tex.pl
index d977a3a..bf89bf5 100644
--- a/skripte/wortliste/extract-tex.pl
+++ b/skripte/wortliste/extract-tex.pl
@@ -163,9 +163,10 @@ while (<>) {
                          && $feld[5] ne "-6-" && ($opt_t || $opt_s) && !$opt_v;
     $zeile = $feld[6] if defined $feld[6]
                          && $feld[6] ne "-7-" && !($opt_t || $opt_s) && !$opt_v;
-    $zeile = $feld[7] if defined $feld[7]
-                         && $feld[7] ne "-8-" && $opt_s && !$opt_v;
   }
+
+  $zeile = $feld[7] if defined $feld[7] && $opt_s;
+
   if (!$zeile) {
     $zeile = $feld[1];
   }
-- 
2.11.4.GIT