fix regex anchors in PPI::Statement::Compound->type

mauke · oalders · commit f6615364047f · 2025-10-28T12:44:52.000-04:00
diff --git a/lib/PPI/Statement/Compound.pm b/lib/PPI/Statement/Compound.pm
@@ -119,7 +119,7 @@ sub type {
 	if ( $content =~ /^for(?:each)?\z/ ) {
 		$Element = $self->schild(++$p) or return $content;
 		if ( $Element->isa('PPI::Token') ) {
-			return 'foreach' if $Element->content =~ /^my|our|state\z/;
+			return 'foreach' if $Element->content =~ /^(?:my|our|state)\z/;
 			return 'foreach' if $Element->isa('PPI::Token::Symbol');
 			return 'foreach' if $Element->isa('PPI::Token::QuoteLike::Words');
 		}

Original file line number	Diff line number	Diff line change
`@@ -119,7 +119,7 @@ sub type {`
`119`	`119`	`if ( $content =~ /^for(?:each)?\z/ ) {`
`120`	`120`	`$Element = $self->schild(++$p) or return $content;`
`121`	`121`	`if ( $Element->isa('PPI::Token') ) {`
`122`		`- return 'foreach' if $Element->content =~ /^my\|our\|state\z/;`
	`122`	`+ return 'foreach' if $Element->content =~ /^(?:my\|our\|state)\z/;`
`123`	`123`	`return 'foreach' if $Element->isa('PPI::Token::Symbol');`
`124`	`124`	`return 'foreach' if $Element->isa('PPI::Token::QuoteLike::Words');`
`125`	`125`	`}`