diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-14 03:37:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-14 03:37:37 +0000 |
| commit | ff689196a75c2757dfba08a8f95f0eb42fb81136 (patch) | |
| tree | 527db5af6a2f2653b182be7de8bfdeb3e1633faf /vms | |
| parent | 81be85b825fc39c8f8e4c3fb4748df6a7fa34de4 (diff) | |
| download | perl-ff689196a75c2757dfba08a8f95f0eb42fb81136.tar.gz | |
fix bug in change#4515 (STOP blocks now see @ARGV like the rest)
p4raw-link: @4515 on //depot/perl: 4f25aa189c4a92535547c706ad37c13b7caee387
p4raw-id: //depot/perl@4578
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/perly_c.vms | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index 4787247429..ebc7d57cc3 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1828,7 +1828,7 @@ case 59: #line 338 "perly.y" { STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a); if (strEQ(name, "BEGIN") || strEQ(name, "END") - || strEQ(name, "INIT")) + || strEQ(name, "STOP") || strEQ(name, "INIT")) CvSPECIAL_on(PL_compcv); yyval.opval = yyvsp[0].opval; } break; |