view release on metacpan or  search on metacpan

RunBlock.xs  view on Meta::CPAN

        run_info->old_runops = NULL;
      }
      RETVAL = run_info->prev_op_is_return;
    }
  OUTPUT:
    RETVAL

void
_long_wantarray(up)
    int up;
  PPCODE:
    {
      I32 cxix;
      for( cxix = cxstack_ix; up>=0; --up, --cxix )
      {
        cxix = S_dopoptosub_at(aTHX_ cxstack, cxix);
      }
      if (cxix < 0)
        XSRETURN_UNDEF;
      switch (cxstack[cxix].blk_gimme)
      {
      case G_ARRAY:  XSRETURN_YES;
      case G_SCALAR: XSRETURN_NO;
      default:       XSRETURN_UNDEF;
      }
    }

void
_long_return(up)
    int up;
  PPCODE:
    {
      I32 cxix;
      CV* cv_retops;
#if DEBUG_MESSAGES
      fprintf(stderr, "_long_return:enter(up=%d)\n", up)
      for( cxix=cxstack_ix; cxix>=0; --cxix )
      {
        switch( CxTYPE(&cxstack[cxix]) )
        {
        case CXt_NULL:   fprintf(stderr, "  #%d %s\n", cxix, "null"); break;