The #11541 didn't work under threads.

p4raw-id: //depot/perl@11544

diff --git a/op.c b/op.c
index 895c967..c542cbf 100644 (file)
--- a/op.c
+++ b/op.c
@@ -20,7 +20,7 @@
 #include "perl.h"
 #include "keywords.h"
 
-#define CALL_PEEP(o) CALL_FPTR(PL_peepp)(o)
+#define CALL_PEEP(o) CALL_FPTR(PL_peepp)(aTHX_ o)
 
 /* #define PL_OP_SLAB_ALLOC */