Automatically SPAGAIN in the poor-man's-multicall API

[perl5.git] / ext / List / Util / multicall.h

diff --git a/ext/List/Util/multicall.h b/ext/List/Util/multicall.h
index 935d7ed..fe49512 100644 (file)
--- a/ext/List/Util/multicall.h
+++ b/ext/List/Util/multicall.h
@@ -160,6 +160,7 @@ multicall_pad_push(pTHX_ AV *padlist, int depth)
        POPSTACK;                                                       \
        CATCH_SET(multicall_oldcatch);                                  \
        LEAVE;                                                          \
+       SPAGAIN;
     } STMT_END
 
 #endif