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

Message-ID: <20060313124821.GA11203@rpc142.cs.man.ac.uk>

p4raw-id: //depot/perl@27486

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