--- IO-AIO/typemap	2006/10/21 23:06:15	1.1
+++ IO-AIO/typemap	2006/10/31 00:34:27	1.6
@@ -1,15 +1,18 @@
 aio_req		T_AIO
 aio_req_ornot	T_AIO_ORNOT
+SV8 *		T_SV8
 
 INPUT
 
 T_AIO
-	$var = SvAIO_REQ ($arg);
-	if (!$var)
-          croak (\"busy IO::AIO::CB object required\");
+	if (!($var = SvAIO_REQ ($arg)))
+          croak (\"busy \" AIO_REQ_KLASS \" object expected\")
 
 T_AIO_ORNOT
-	$var = SvAIO_REQ ($arg);
-        if (!$var)
-	  XSRETURN_EMPTY;
+	if (!($var = SvAIO_REQ ($arg)))
+	  XSRETURN_EMPTY
 
+T_SV8
+	($var) = $arg;
+        if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
+          croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")