diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-18 21:41:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-18 21:41:57 +0000 |
| commit | 1aff0e911b5282f0638dc0d8199ffa4edf98f89c (patch) | |
| tree | 739e6a5e7e8b085c24d38adf5e1dcd0975de78da /vms/perly_c.vms | |
| parent | 08cdc9a35d157219f769511762b78adf22ca040a (diff) | |
| download | perl-1aff0e911b5282f0638dc0d8199ffa4edf98f89c.tar.gz | |
distinguish eval'' from BEGIN|INIT|END CVs (fixes buggy propagation
of lexical searches in BEGIN|INIT|END)
p4raw-id: //depot/perl@2975
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 d2782f102c..17023a0140 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1805,7 +1805,7 @@ case 57: { STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT")) - CvUNIQUE_on(PL_compcv); + CvSPECIAL_on(PL_compcv); yyval.opval = yyvsp[0].opval; } break; case 58: @@ -1830,7 +1830,7 @@ case 63: break; case 64: #line 330 "perly.y" -{ CvUNIQUE_on(PL_compcv); /* It's a BEGIN {} */ } +{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } break; case 65: #line 332 "perly.y" |