diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 14:59:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 14:59:41 +0000 |
| commit | c71fccf11fde00682b01a755429d9c2484b4a8fa (patch) | |
| tree | 922818fb2930d53993ef47028f9f929abb40029c /vms | |
| parent | fea629d86f3fde9776b0fe77f054fb3a45d1f23b (diff) | |
| download | perl-c71fccf11fde00682b01a755429d9c2484b4a8fa.tar.gz | |
Integrate change #10394 from maintperl; lexical file scope leakage.
p4raw-link: @10394 on //depot/maint-5.6/perl: f8a08f7b8bd67b287f13d07e110e93e62aebd509
p4raw-id: //depot/perl@10395
p4raw-integrated: from //depot/maint-5.6/perl@10393 'copy in'
t/pragma/warn/universal (@5902..) 'merge in' perly.c (@8159..)
vms/perly_c.vms (@8169..) t/op/misc.t (@8636..) perly.y
(@9292..)
Diffstat (limited to '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" |