From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 2 Jul 2006 19:30:49 +0000 (+0000)
Subject: remove some unnecessary uses of WITH_THR
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11206fddaf7ef0686e22e60221d236872f9d4063;p=p5sagit%2Fp5-mst-13.2.git

remove some unnecessary uses of WITH_THR

p4raw-id: //depot/perl@28465
---

diff --git a/mg.c b/mg.c
index 4da7453..ff33026 100644
--- a/mg.c
+++ b/mg.c
@@ -967,7 +967,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
     case '/':
 	break;
     case '[':
-	WITH_THR(sv_setiv(sv, (IV)CopARYBASE_get(PL_curcop)));
+	sv_setiv(sv, (IV)CopARYBASE_get(PL_curcop));
 	break;
     case '|':
 	if (GvIOp(PL_defoutgv))
diff --git a/op.c b/op.c
index 6324b52..d2c6835 100644
--- a/op.c
+++ b/op.c
@@ -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 */