diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
| commit | 533c011aecf9bca2c9ad025efccd7b74ad222cda (patch) | |
| tree | 842693196e76c6669b3d83287b1ed7dda8bf68c3 /regexec.c | |
| parent | 8f8722428a3062985b7d543348f72ccabf60a063 (diff) | |
| download | perl-533c011aecf9bca2c9ad025efccd7b74ad222cda.tar.gz | |
PL_ stuff for threads
p4raw-id: //depot/ansiperl@1534
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1027,14 +1027,14 @@ regmatch(regnode *prog) case EVAL: { dSP; - OP_4tree *oop = op; + OP_4tree *oop = PL_op; COP *ocurcop = PL_curcop; SV **ocurpad = PL_curpad; SV *ret; n = ARG(scan); - op = (OP_4tree*)PL_regdata->data[n]; - DEBUG_r( PerlIO_printf(Perl_debug_log, " re_eval 0x%x\n", op) ); + PL_op = (OP_4tree*)PL_regdata->data[n]; + DEBUG_r( PerlIO_printf(Perl_debug_log, " re_eval 0x%x\n", PL_op) ); PL_curpad = AvARRAY((AV*)PL_regdata->data[n + 1]); CALLRUNOPS(); /* Scalar context. */ @@ -1047,7 +1047,7 @@ regmatch(regnode *prog) sw = SvTRUE(ret); } else sv_setsv(save_scalar(PL_replgv), ret); - op = oop; + PL_op = oop; PL_curpad = ocurpad; PL_curcop = ocurcop; break; |