diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-07-02 19:30:49 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-07-02 19:30:49 +0000 |
| commit | 11206fddaf7ef0686e22e60221d236872f9d4063 (patch) | |
| tree | f947ef3e6a23140ab09b1ebafea3946ccf30e080 /op.c | |
| parent | 5ae37c3f727422baf517cdb861077f4b05166c93 (diff) | |
| download | perl-11206fddaf7ef0686e22e60221d236872f9d4063.tar.gz | |
remove some unnecessary uses of WITH_THR
p4raw-id: //depot/perl@28465
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -640,7 +640,7 @@ Perl_scalar(pTHX_ OP *o) else scalar(kid); } - WITH_THR(PL_curcop = &PL_compiling); + PL_curcop = &PL_compiling; break; case OP_SCOPE: case OP_LINESEQ: @@ -651,7 +651,7 @@ Perl_scalar(pTHX_ OP *o) else scalar(kid); } - WITH_THR(PL_curcop = &PL_compiling); + PL_curcop = &PL_compiling; break; case OP_SORT: if (ckWARN(WARN_VOID)) @@ -988,7 +988,7 @@ Perl_list(pTHX_ OP *o) else list(kid); } - WITH_THR(PL_curcop = &PL_compiling); + PL_curcop = &PL_compiling; break; case OP_SCOPE: case OP_LINESEQ: @@ -998,7 +998,7 @@ Perl_list(pTHX_ OP *o) else list(kid); } - WITH_THR(PL_curcop = &PL_compiling); + PL_curcop = &PL_compiling; break; case OP_REQUIRE: /* all requires must return a boolean value */ |