Perl_gimme_V(): assume caller always provides cxt

So we don't need to check whether (cxstack[cxix].blk_gimme & G_WANT),
just use it. Replace the check with an assertion.

diff --git a/inline.h b/inline.h
index 1755893..f52d4e5 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -2069,11 +2069,8 @@ Perl_gimme_V(pTHX)
     cxix = PL_curstackinfo->si_cxsubix;
     if (cxix < 0)
         return G_VOID;
-    gimme = (cxstack[cxix].blk_gimme & G_WANT);
-    if (gimme)
-        return gimme;
-    /* use the full sub to report the error */
-    return block_gimme();
+    assert(cxstack[cxix].blk_gimme & G_WANT);
+    return (cxstack[cxix].blk_gimme & G_WANT);
 }