[Perl] don't populate comments when MDG

fperrad · fperrad · commit 8ec2eb0dee79 · 2025-05-13T14:23:09.000+02:00
like with Javascript
diff --git a/perl/lib/Gherkin/AstBuilder.pm b/perl/lib/Gherkin/AstBuilder.pm
@@ -60,7 +60,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
`@@ -60,7 +60,7 @@ sub build {`
`60`	`60`	`Cucumber::Messages::Comment->new(`
`61`	`61`	`location => $self->get_location($token),`
`62`	`62`	`text => $token->matched_text`
`63`		`- );`
	`63`	`+ ) unless $self->{uri} =~ m/\.md$/;`
`64`	`64`	`} else {`
`65`	`65`	`$self->current_node->add( $token->matched_type, $token );`
`66`	`66`	`}`