Iterative smart match over keys/elements when a coderef is on the RHS

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index f59518e..8e100f2 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -3646,7 +3646,7 @@
 #ifdef PERL_CORE
 #define parse_body(a,b)                S_parse_body(aTHX_ a,b)
 #define run_body(a)            S_run_body(aTHX_ a)
-#define incpush_if_exists(a,b) S_incpush_if_exists(aTHX_ a,b)
+#define incpush_if_exists(a,b,c)       S_incpush_if_exists(aTHX_ a,b,c)
 #endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)