From b87b492773e1a373e4e7f03f7c1003df3bbd8bbc Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Fri, 13 Feb 2004 02:42:06 +0000
Subject: [PATCH] The fixed search.marc/search.tmpl (nothing between
 <textarea></textarea>) caused an eof token to be incorrectly generated by
 next_token(). This is now fixed.

---
 misc/translator/text-extract2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 9c20b5ef97..513a1407a9 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -180,7 +180,7 @@ sub next_token (*) {
 	    push @$it, extract_attributes($it->[1], $lc_0); #FIXME
 	}
     } else {
-	for (;;) {
+	for ($it = '';;) {
 	    my $lc_prev = $lc;
 	    my $next = next_token_internal($h);
 	last if !defined $next;
@@ -191,7 +191,7 @@ sub next_token (*) {
 	last unless $cdata_mode_p;
 	    $it .= $next->[1]; #FIXME
 	}
-	$it = [KIND_CDATA, $it] if defined $it; #FIXME
+	$it = [KIND_CDATA, $it]; #FIXME
 	$cdata_close = undef;
     }
     return defined $it? (wantarray? @$it: $it): undef;
-- 
2.39.2