| … | |
… | |
| 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; |
