… | |
… | |
524 | flags == O_RDONLY ? "<" : flags == O_WRONLY ? ">" : "+<", |
524 | flags == O_RDONLY ? "<" : flags == O_WRONLY ? ">" : "+<", |
525 | req->result |
525 | req->result |
526 | ); |
526 | ); |
527 | |
527 | |
528 | if (do_open (gv, sym, symlen, 0, 0, 0, 0)) |
528 | if (do_open (gv, sym, symlen, 0, 0, 0, 0)) |
529 | fh = gv; |
529 | fh = (SV *)gv; |
530 | } |
530 | } |
531 | |
531 | |
532 | XPUSHs (fh); |
532 | XPUSHs (fh); |
533 | } |
533 | } |
534 | break; |
534 | break; |
… | |
… | |
1543 | int fd = PerlIO_fileno (io); |
1543 | int fd = PerlIO_fileno (io); |
1544 | |
1544 | |
1545 | if (fd < 0) |
1545 | if (fd < 0) |
1546 | croak ("aio_close called with fd-less filehandle"); |
1546 | croak ("aio_close called with fd-less filehandle"); |
1547 | |
1547 | |
1548 | PerlIO_binmode (io, 0, 0, 0); |
1548 | PerlIO_binmode (aTHX_ io, 0, 0, 0); |
1549 | |
1549 | |
1550 | { |
1550 | { |
1551 | dREQ; |
1551 | dREQ; |
1552 | |
1552 | |
1553 | req->type = REQ_CLOSE; |
1553 | req->type = REQ_CLOSE; |