From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 17 Apr 2001 11:59:05 +0000 (+0000)
Subject: Thread-awareness from Doug MacEachern.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da53b6b0ee17a9021cfe017f3e6b663827614170;p=p5sagit%2Fp5-mst-13.2.git

Thread-awareness from Doug MacEachern.

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

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 1997b68..1e6d8f6 100644
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -180,7 +180,7 @@ CODE:
 	GvSV(agv) = ret;
 	GvSV(bgv) = ST(index);
 	PL_op = reducecop;
-	CALLRUNOPS();
+	CALLRUNOPS(aTHX);
 	ret = *PL_stack_sp;
     }
     ST(0) = ret;
@@ -216,7 +216,7 @@ CODE:
     for(index = 1 ; index < items ; index++) {
 	GvSV(PL_defgv) = ST(index);
 	PL_op = reducecop;
-	CALLRUNOPS();
+	CALLRUNOPS(aTHX);
 	if (SvTRUE(*PL_stack_sp)) {
 	  ST(0) = ST(index);
 	  XSRETURN(1);