This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore change 27486 accidently removed (also added to 1.19 before release)
[perl5.git] / ext / List / Util / multicall.h
index 935d7ed..b8296e1 100644 (file)
@@ -160,6 +160,7 @@ multicall_pad_push(pTHX_ AV *padlist, int depth)
        POPSTACK;                                                       \
        CATCH_SET(multicall_oldcatch);                                  \
        LEAVE;                                                          \
+        SPAGAIN;                                                        \
     } STMT_END
 
 #endif