diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 16:08:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-29 16:08:03 +0000 |
| commit | 2d8e6c8d50eaf50f663a5fd184404c73944226e0 (patch) | |
| tree | e5592e6ebd4ebedeee8ebc8ddbb60cad5f477fc4 /run.c | |
| parent | b099ddc068b2498767e6f04ac167d9633b895ec4 (diff) | |
| download | perl-2d8e6c8d50eaf50f663a5fd184404c73944226e0.tar.gz | |
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
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -73,6 +73,7 @@ debop(OP *o) { #ifdef DEBUGGING SV *sv; + STRLEN n_a; deb("%s", PL_op_name[o->op_type]); switch (o->op_type) { case OP_CONST: @@ -83,7 +84,7 @@ debop(OP *o) if (cGVOPo->op_gv) { sv = NEWSV(0,0); gv_fullname3(sv, cGVOPo->op_gv, Nullch); - PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, PL_na)); + PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a)); SvREFCNT_dec(sv); } else |