diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-17 11:59:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-17 11:59:05 +0000 |
| commit | da53b6b0ee17a9021cfe017f3e6b663827614170 (patch) | |
| tree | fd238b7decf5e82375c647a2152e77bb834bed38 /ext | |
| parent | d084a4832902f1f43f569a06eb68c157a81925d2 (diff) | |
| download | perl-da53b6b0ee17a9021cfe017f3e6b663827614170.tar.gz | |
Thread-awareness from Doug MacEachern.
p4raw-id: //depot/perl@9724
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/List/Util/Util.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 1997b68129..1e6d8f6fe9 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); |