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:
parent
5af84e39db
commit
b87b492773
1 changed files with 2 additions and 2 deletions
|
@ -180,7 +180,7 @@ sub next_token (*) {
|
||||||
push @$it, extract_attributes($it->[1], $lc_0); #FIXME
|
push @$it, extract_attributes($it->[1], $lc_0); #FIXME
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
for (;;) {
|
for ($it = '';;) {
|
||||||
my $lc_prev = $lc;
|
my $lc_prev = $lc;
|
||||||
my $next = next_token_internal($h);
|
my $next = next_token_internal($h);
|
||||||
last if !defined $next;
|
last if !defined $next;
|
||||||
|
@ -191,7 +191,7 @@ sub next_token (*) {
|
||||||
last unless $cdata_mode_p;
|
last unless $cdata_mode_p;
|
||||||
$it .= $next->[1]; #FIXME
|
$it .= $next->[1]; #FIXME
|
||||||
}
|
}
|
||||||
$it = [KIND_CDATA, $it] if defined $it; #FIXME
|
$it = [KIND_CDATA, $it]; #FIXME
|
||||||
$cdata_close = undef;
|
$cdata_close = undef;
|
||||||
}
|
}
|
||||||
return defined $it? (wantarray? @$it: $it): undef;
|
return defined $it? (wantarray? @$it: $it): undef;
|
||||||
|
|
Loading…
Reference in a new issue