This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #123286] Lone C-style for in a block
[perl5.git] / perly.y
diff --git a/perly.y b/perly.y
index ece2904..6ba61ae 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -370,6 +370,7 @@ barestmt:   PLUGSTMT
                                      newOP(OP_UNSTACK, OPf_SPECIAL),
                                      forop));
                          }
+                         PL_hints |= HINT_BLOCK_SCOPE;
                          $$ = block_end($3, forop);
                          parser->copline = (line_t)$1;
                        }