[perl #25824] Segmentation fault with

 sub x { shift; @a = @b; eval +{ use } }

p4raw-id: //depot/perl@22306

1 files changed, 0 insertions, 11 deletions

diff --git a/op.c b/op.c
index 8a116d763e..871a0f62cf 100644
--- a/op.c
+++ b/op.c
@@ -1769,12 +1769,6 @@ int
 Perl_block_start(pTHX_ int full)
 {
     int retval = PL_savestack_ix;
-    /* If there were syntax errors, don't try to start a block */
-    /* XXX DAPM 13-Feb-04. This symbol no longer gloabl. Think of a better
-     * way
-     * if (PL_yynerrs) return retval;
-     */
-
     pad_block_start(full);
     SAVEHINTS();
     PL_hints &= ~HINT_BLOCK_SCOPE;
@@ -1796,11 +1790,6 @@ Perl_block_end(pTHX_ I32 floor, OP *seq)
 {
     int needblockscope = PL_hints & HINT_BLOCK_SCOPE;
     OP* retval = scalarseq(seq);
-    /* If there were syntax errors, don't try to close a block */
-    /* XXX DAPM 13-Feb-04. This symbol no longer gloabl. Think of a better
-     * way
-     * if (PL_yynerrs) return retval;
-     */
     LEAVE_SCOPE(floor);
     PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);
     if (needblockscope)