[Perl] ignore Comment in AST

fperrad · fperrad · commit 4af5f7dde2b7 · 2025-05-27T22:42:47.000+02:00
diff --git a/perl/lib/Gherkin/MarkdownTokenMatcher.pm b/perl/lib/Gherkin/MarkdownTokenMatcher.pm
@@ -213,8 +213,7 @@ sub match_Comment {
     if (   $token->line->startswith('|')
         && $self->_is_gfm_table_separator( $token->line->table_cells ) )
     {
-        $self->_set_token_matched( $token,
-            Comment => { text => $token->line->line_text, indent => 0 } );
+        $self->_set_token_matched( $token, Empty => { indent => 0 } );
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -213,8 +213,7 @@ sub match_Comment {`
`213`	`213`	`if ( $token->line->startswith('\|')`
`214`	`214`	`&& $self->_is_gfm_table_separator( $token->line->table_cells ) )`
`215`	`215`	`{`
`216`		`- $self->_set_token_matched( $token,`
`217`		`- Comment => { text => $token->line->line_text, indent => 0 } );`
	`216`	`+ $self->_set_token_matched( $token, Empty => { indent => 0 } );`
`218`	`217`	`}`
`219`	`218`	`}`
`220`	`219`