| 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 | SV8 * T_SV8 |
| 3 | |
4 | |
| 4 | INPUT |
5 | INPUT |
| 5 | |
6 | |
| 6 | T_AIO |
7 | T_AIO |
| 7 | if (!($var = SvAIO_REQ ($arg))) |
8 | if (!($var = SvAIO_REQ ($arg))) |
| 8 | croak (\"busy \" AIO_REQ_KLASS \" object expected\"); |
9 | croak (\"busy \" AIO_REQ_KLASS \" object expected\") |
| 9 | |
10 | |
| 10 | T_AIO_ORNOT |
11 | T_AIO_ORNOT |
| 11 | if (!($var = SvAIO_REQ ($arg))) |
12 | if (!($var = SvAIO_REQ ($arg))) |
| 12 | XSRETURN_EMPTY; |
13 | XSRETURN_EMPTY |
| 13 | |
14 | |
|
|
15 | T_SV8 |
|
|
16 | ($var) = $arg; |
|
|
17 | if (SvPOK ($var) && !sv_utf8_downgrade ($var, 1)) |
|
|
18 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
