… | |
… | |
1545 | newSVpvn ("[async_pool]", sizeof ("[async_pool]") - 1), 0); |
1545 | newSVpvn ("[async_pool]", sizeof ("[async_pool]") - 1), 0); |
1546 | |
1546 | |
1547 | invoke_av = (AV *)SvRV (invoke); |
1547 | invoke_av = (AV *)SvRV (invoke); |
1548 | len = av_len (invoke_av); |
1548 | len = av_len (invoke_av); |
1549 | |
1549 | |
1550 | av_clear (defav); |
|
|
1551 | |
|
|
1552 | RETVAL = sv_2mortal (SvREFCNT_inc (AvARRAY (invoke_av)[0])); |
1550 | RETVAL = SvREFCNT_inc (AvARRAY (invoke_av)[0]); |
1553 | |
1551 | |
1554 | if (len > 0) |
1552 | if (len > 0) |
1555 | { |
1553 | { |
|
|
1554 | av_clear (defav); |
1556 | av_extend (defav, len); |
1555 | av_extend (defav, len); |
1557 | for (i = 0; i < len; ++i) |
1556 | for (i = 0; i < len; ++i) |
1558 | av_store (defav, i, SvREFCNT_inc (AvARRAY (invoke_av)[i + 1])); |
1557 | av_store (defav, i, SvREFCNT_inc (AvARRAY (invoke_av)[i + 1])); |
1559 | } |
1558 | } |
1560 | |
1559 | |