From 602a0a60ff03c56d710a48cdd5df938813fb828f Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 29 Nov 1998 16:08:03 +0000 Subject: another threads reliability fix: serialize writes to thr->threadsv avoid most uses of PL_na (which is much more inefficient than a simple local); update docs to suit; PL_na now being thr->Tna may be a minor compatibility issue for extensions--will require dTHR outside of XSUBs (those get automatic dTHR) p4raw-id: //depot/perl@2387 --- perly.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index a13d388724..50494a3922 100644 --- a/perly.c +++ b/perly.c @@ -1771,7 +1771,7 @@ case 56: break; case 57: #line 302 "perly.y" -{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, PL_na); +{ 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); -- cgit v1.2.1