--- IO-AIO/typemap 2006/10/21 23:20:29 1.2 +++ IO-AIO/typemap 2006/10/31 00:32:19 1.5 @@ -1,21 +1,18 @@ aio_req T_AIO aio_req_ornot T_AIO_ORNOT -aio_group T_AIO_GROUP +SV8 * T_SV8 INPUT T_AIO - $var = SvAIO_REQ ($arg, AIO_REQ_KLASS); - if (!$var) - croak (\"busy " AIO_CB_KLASS " object expected\"); + if (!($var = SvAIO_REQ ($arg))) + croak (\"busy \" AIO_REQ_KLASS \" object expected\") T_AIO_ORNOT - $var = SvAIO_REQ ($arg, AIO_REQ_KLASS); - if (!$var) - XSRETURN_EMPTY; - -T_AIO_GROUP - $var = SvAIO_REQ ($arg, AIO_GRP_KLASS); - if (!$var) - croak (AIO_GROUP_KLASS " object expected\"); + if (!($var = SvAIO_REQ ($arg))) + XSRETURN_EMPTY +T_SV8 + ($var) = $arg; + if (SvPOK ($var) && !sv_utf8_downgrade ($var, 1)) + croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")