GH-216 - fix wrong linumbers after processing instructions

hkoba · Feb 11, 2024 · 75e449b · 75e449b
1 parent d61bb71
commit 75e449b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Lite/LRXML/ParseBody.pm b/Lite/LRXML/ParseBody.pm
@@ -171,6 +171,7 @@ sub _parse_body {
       my $nl = "\n" if $2;
       # XXX: parse_text の前なので、本当は良くない
       $self->{curpos} += length $2 if $2;
+      $self->{endln} += numLines($1);
       push @$sink, do {
         my $node = [];
         $node->[NODE_TYPE] = TYPE_PI;

diff --git a/t/xhf/errdiag/2-runtime.xhf b/t/xhf/errdiag/2-runtime.xhf
@@ -42,7 +42,7 @@ ERROR: ^Use of uninitialized value (?:\$html_x )?in print at \S+ line 3,
 TITLE: pi var in body
 IN:
  <yatt:foo>
- <?perl undef $html_x;?> <?perl===&yatt:x;?>
+ <?perl=== undef $html_x; &yatt:x;?>
  </yatt:foo>
 
  <!yatt:widget foo body = [code x=html]>