| … | |
… | |
| 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; |
