From e858de61083066071eb1526df39bdaa094032c61 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Thu, 5 Jun 1997 14:20:51 +0000 Subject: More fixups for thrperl integration. p4raw-id: //depot/perl@27 --- perly.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index 6bc37ff7c9..fd161fd8b0 100644 --- a/perly.c +++ b/perly.c @@ -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; -- cgit v1.2.1