view release on metacpan or  search on metacpan

Capture.xs  view on Meta::CPAN

void
capture_set_env_ref(cp, env)
	POSIX::Run::Capture cp;
	ARGV env;

void
capture_set_program(cp, prog)
	POSIX::Run::Capture cp;
	char *prog = NO_INIT;
  PPCODE:
	if (cp->program != &PL_sv_undef)
		SvREFCNT_dec(cp->program);
	cp->program = ST(1);
        if (cp->program != &PL_sv_undef) {
		SvREFCNT_inc(cp->program);
		cp->rc.rc_program = SvPV_nolen(cp->program);
		cp->flags |= RCF_PROGRAM;
	} else 
		cp->flags &= ~RCF_PROGRAM;

Capture.xs  view on Meta::CPAN

capture_env(cp)
	POSIX::Run::Capture cp;
  CODE:
	RETVAL = cp->rc.rc_env;
  OUTPUT:
        RETVAL

void
capture_program(cp)
	POSIX::Run::Capture cp;
  PPCODE:
	if (cp->program == &PL_sv_undef && cp->rc.rc_argv) {
		ST(0) = newSVpv(cp->rc.rc_argv[0], 0);
		sv_2mortal(ST(0));
	} else
		ST(0) = cp->program;
        XSRETURN(1);

unsigned
capture_timeout(cp)
	POSIX::Run::Capture cp;