From 11206fddaf7ef0686e22e60221d236872f9d4063 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 2 Jul 2006 19:30:49 +0000
Subject: remove some unnecessary uses of WITH_THR

p4raw-id: //depot/perl@28465
---
 mg.c | 2 +-
 op.c | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/mg.c b/mg.c
index 4da7453c3c..ff330269be 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 6324b528f7..d2c68354b7 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 */
-- 
cgit v1.2.1