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.
This commit is contained in:
acli 2004-02-13 02:42:06 +00:00
parent 5af84e39db
commit b87b492773

View file

@ -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;