Lines Matching defs:exsv

542     SV *exsv;
547         exsv = TARG;
551         exsv = &PL_sv_no;
556         exsv = TOPs;
557         if (SvGMAGICAL(exsv)) exsv = sv_mortalcopy(exsv);
560     if (SvROK(exsv) || (SvPV_const(exsv, len), len)) {
568             exsv = sv_newmortal();
569             sv_setsv_nomg(exsv, errsv);
571         else exsv = errsv;
574         exsv = sv_newmortal();
575         sv_setsv_nomg(exsv, errsv);
576         sv_catpvs(exsv, "\t...caught");
579         exsv = newSVpvs_flags("Warning: something's wrong", SVs_TEMP);
582     if (SvROK(exsv) && !PL_warnhook)
583          Perl_warn(aTHX_ "%" SVf, SVfARG(exsv));
584     else warn_sv(exsv);
591     SV *exsv;
600         exsv = TARG;
604         exsv = TOPs;
607     if (SvROK(exsv) || (SvPV_const(exsv, len), len)) {
614             exsv = errsv;
615             if (sv_isobject(exsv)) {
616                 HV * const stash = SvSTASH(SvRV(exsv));
623                     PUSHs(exsv);
629                     exsv = sv_mortalcopy(*PL_stack_sp--);
634             exsv = sv_mortalcopy(errsv);
635             sv_catpvs(exsv, "\t...propagated");
638             exsv = newSVpvs_flags("Died", SVs_TEMP);
641     die_sv(exsv);