diff options
Diffstat (limited to 'vms/perly_c.vms')
| -rw-r--r-- | vms/perly_c.vms | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index b515dd17a5..7d071a0020 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1572,12 +1572,12 @@ case 1: #if defined(YYDEBUG) && defined(DEBUGGING) yydebug = (DEBUG_p_TEST); #endif - PL_expect = XSTATE; + PL_expect = XSTATE; yyval.ival = block_start(TRUE); } break; case 2: #line 135 "perly.y" -{ newPROG(yyvsp[0].opval); } +{ newPROG(block_end(yyvsp[-1].ival,yyvsp[0].opval)); } break; case 3: #line 139 "perly.y" |