From b87b492773e1a373e4e7f03f7c1003df3bbd8bbc Mon Sep 17 00:00:00 2001 From: acli Date: Fri, 13 Feb 2004 02:42:06 +0000 Subject: [PATCH] The fixed search.marc/search.tmpl (nothing between ) 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.5