From 2d8e6c8d50eaf50f663a5fd184404c73944226e0 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 --- pod/perlcall.pod | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'pod/perlcall.pod') diff --git a/pod/perlcall.pod b/pod/perlcall.pod index c239cfe324..e3e02de613 100644 --- a/pod/perlcall.pod +++ b/pod/perlcall.pod @@ -971,7 +971,8 @@ and some C to call it /* Check the eval first */ if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(ERRSV, PL_na)) ; + STRLEN n_a; + printf ("Uh oh - %s\n", SvPV(ERRSV, n_a)) ; POPs ; } else @@ -1013,7 +1014,8 @@ The code if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(ERRSV, PL_na)) ; + STRLEN n_a; + printf ("Uh oh - %s\n", SvPV(ERRSV, n_a)) ; POPs ; } -- cgit v1.2.1