--- IO-AIO/AIO.xs 2008/05/11 19:11:05 1.119 +++ IO-AIO/AIO.xs 2008/05/11 19:17:09 1.120 @@ -789,13 +789,13 @@ if (SvPOK (req->sv1)) { - req->type = EIO_FCHMOD; - req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path))); + req->type = ix; + req->ptr1 = SvPVbyte_nolen (req->sv1); } else { - req->type = ix; - req->ptr1 = SvPVbyte_nolen (req->sv1); + req->type = EIO_FCHMOD; + req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path))); } REQ_SEND;