add Perl_gimme_V() static inline fn for GIMME_V

This function makes use of PL_curstackinfo->si_cxsubix to avoid the
overhead of a call to block_gimme() when the context of the op is
unknown.

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index ef1ff8dd40..af95a9e50b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1389,6 +1389,8 @@ Perl_dowantarray(pTHX)
     return (gimme == G_VOID) ? G_SCALAR : gimme;
 }
 
+/* note that this function has mostly been superseded by Perl_gimme_V */
+
 U8
 Perl_block_gimme(pTHX)
 {