diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
| commit | e858de61083066071eb1526df39bdaa094032c61 (patch) | |
| tree | a59a60b162edf35b5557f553d4812553b75a996d /perly.c | |
| parent | 5196be3eab7cb5c37d1fce858e95874c8439e54f (diff) | |
| download | perl-e858de61083066071eb1526df39bdaa094032c61.tar.gz | |
More fixups for thrperl integration.
p4raw-id: //depot/perl@27
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1763,8 +1763,9 @@ case 55: break; case 56: #line 291 "perly.y" -{ char *name = SvPVx(((SVOP*)yyvsp[0].opval)->op_sv, na); - if (strEQ(name, "BEGIN") || strEQ(name, "END")) +{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, na); + if (strEQ(name, "BEGIN") || strEQ(name, "END") + || strEQ(name, "RESTART")) CvUNIQUE_on(compcv); yyval.opval = yyvsp[0].opval; } break; |