[patch perlguts.pod] save_item doesn't handle magic

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 8a116d7..871a0f6 100644 (file)
--- 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)