| 1 | aio_req T_AIO |
1 | aio_req T_AIO |
| 2 | aio_req_ornot T_AIO_ORNOT |
2 | aio_req_ornot T_AIO_ORNOT |
| 3 | aio_group T_AIO_GROUP |
3 | SV8 * T_SV8 |
| 4 | |
4 | |
| 5 | INPUT |
5 | INPUT |
| 6 | |
6 | |
| 7 | T_AIO |
7 | T_AIO |
| 8 | $var = SvAIO_REQ ($arg, AIO_REQ_KLASS); |
8 | if (!($var = SvAIO_REQ ($arg))) |
| 9 | if (!$var) |
|
|
| 10 | croak (\"busy " AIO_CB_KLASS " object expected\"); |
9 | croak (\"busy \" AIO_REQ_KLASS \" object expected\") |
| 11 | |
10 | |
| 12 | T_AIO_ORNOT |
11 | T_AIO_ORNOT |
| 13 | $var = SvAIO_REQ ($arg, AIO_REQ_KLASS); |
12 | if (!($var = SvAIO_REQ ($arg))) |
| 14 | if (!$var) |
|
|
| 15 | XSRETURN_EMPTY; |
13 | XSRETURN_EMPTY |
| 16 | |
14 | |
| 17 | T_AIO_GROUP |
15 | T_SV8 |
| 18 | $var = SvAIO_REQ ($arg, AIO_GRP_KLASS); |
16 | ($var) = $arg; |
| 19 | if (!$var) |
17 | if (SvPOK ($var) && !sv_utf8_downgrade ($var, 1)) |
| 20 | croak (AIO_GROUP_KLASS " object expected\"); |
18 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
| 21 | |
|
|
