eval_pv

/* eval_pv depends on eval_sv */

#ifndef eval_pv #if { NEED eval_pv }

SV* eval_pv(char *p, I32 croak_on_error) { dSP; SV* sv = newSVpv(p, 0);

    PUSHMARK(sp);
    perl_eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
	croak(SvPVx(GvSV(errgv), na));

    return sv;
}

#endif #endif