[Perl] don't populate comments when MDG

fperrad · fperrad · commit 86e4930580b6 · 2025-05-13T09:04:51.000+02:00
diff --git a/perl/lib/Gherkin/AstBuilder.pm b/perl/lib/Gherkin/AstBuilder.pm
@@ -63,7 +63,7 @@ sub build {
             Cucumber::Messages::Comment->new(
                 location => $self->get_location($token),
                 text     => $token->matched_text
-            );
+            ) unless $self->{uri} =~ m/\.md$/;
     } else {
         $self->current_node->add( $token->matched_type, $token );
     }

Original file line number	Diff line number	Diff line change
`@@ -63,7 +63,7 @@ sub build {`
`63`	`63`	`Cucumber::Messages::Comment->new(`
`64`	`64`	`location => $self->get_location($token),`
`65`	`65`	`text => $token->matched_text`
`66`		`- );`
	`66`	`+ ) unless $self->{uri} =~ m/\.md$/;`
`67`	`67`	`} else {`
`68`	`68`	`$self->current_node->add( $token->matched_type, $token );`
`69`	`69`	`}`