diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-14 02:06:53 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-14 02:06:53 +0000 |
| commit | 0de566d74fdaf0a49123989fe8d4ad06603c6608 (patch) | |
| tree | a7e6f359c44eb372067a0f7567f1e4ef9953ae22 /op.c | |
| parent | 21d1ba01f501963c6f61499860ffc70a78ab21c0 (diff) | |
| download | perl-0de566d74fdaf0a49123989fe8d4ad06603c6608.tar.gz | |
Switch from byacc to bison and simplify the perly.* regeneration
process
p4raw-id: //depot/perl@22302
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -1770,7 +1770,10 @@ Perl_block_start(pTHX_ int full) { int retval = PL_savestack_ix; /* If there were syntax errors, don't try to start a block */ - if (PL_yynerrs) return retval; + /* 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(); @@ -1794,7 +1797,10 @@ 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 */ - if (PL_yynerrs) return retval; + /* 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) |