summaryrefslogtreecommitdiff
path: root/vms/perly_c.vms
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-23 07:32:24 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-23 07:32:24 +0000
commit977336f534851e24a2161d3011e030ea4043a2ae (patch)
tree07beb54d20d60e02081f980535a2c7bb65bc07b0 /vms/perly_c.vms
parent0da4822f11e97ce202166899552c06d720eb835a (diff)
downloadperl-977336f534851e24a2161d3011e030ea4043a2ae.tar.gz
Add to docs about the BEGIN { shift } feature. Make the change
yet simpler using CvUNIQUE(compcv) instead of subline (Chip's idea). p4raw-id: //depot/win32/perl@284
Diffstat (limited to 'vms/perly_c.vms')
-rw-r--r--vms/perly_c.vms2
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index e3c100b45d..7514f16803 100644
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -1770,7 +1770,7 @@ case 56:
{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, na);
if (strEQ(name, "BEGIN") || strEQ(name, "END")
|| strEQ(name, "INIT"))
- { CvUNIQUE_on(compcv); subline = -subline; }
+ CvUNIQUE_on(compcv);
yyval.opval = yyvsp[0].opval; }
break;
case 57: