… | |
… | |
742 | |
742 | |
743 | for (i = 1; i < len; ++i) |
743 | for (i = 1; i < len; ++i) |
744 | PUSHs (*av_fetch (av, i, 1)); |
744 | PUSHs (*av_fetch (av, i, 1)); |
745 | |
745 | |
746 | PUTBACK; |
746 | PUTBACK; |
747 | call_sv ((SV *)GvCV (method), G_SCALAR); |
747 | call_sv ((SV *)GvCV (method), G_SCALAR | G_EVAL); |
748 | SPAGAIN; |
748 | SPAGAIN; |
|
|
749 | |
|
|
750 | if (SvTRUE (ERRSV)) |
|
|
751 | { |
|
|
752 | FREETMPS; LEAVE; |
|
|
753 | ERR (SvPVutf8_nolen (sv_2mortal (SvREFCNT_inc (ERRSV)))); |
|
|
754 | } |
749 | |
755 | |
750 | SvREFCNT_dec (sv); |
756 | SvREFCNT_dec (sv); |
751 | sv = SvREFCNT_inc (POPs); |
757 | sv = SvREFCNT_inc (POPs); |
752 | |
758 | |
753 | PUTBACK; |
759 | PUTBACK; |