| … | |
… | |
| 524 | BOOT: |
524 | BOOT: |
| 525 | { |
525 | { |
| 526 | stash = gv_stashpv ("IO::AIO", 1); |
526 | stash = gv_stashpv ("IO::AIO", 1); |
| 527 | |
527 | |
| 528 | newCONSTSUB (stash, "EXDEV", newSViv (EXDEV)); |
528 | newCONSTSUB (stash, "EXDEV", newSViv (EXDEV)); |
|
|
529 | newCONSTSUB (stash, "ENOSYS", newSViv (ENOSYS)); |
| 529 | newCONSTSUB (stash, "O_RDONLY", newSViv (O_RDONLY)); |
530 | newCONSTSUB (stash, "O_RDONLY", newSViv (O_RDONLY)); |
| 530 | newCONSTSUB (stash, "O_WRONLY", newSViv (O_WRONLY)); |
531 | newCONSTSUB (stash, "O_WRONLY", newSViv (O_WRONLY)); |
| 531 | newCONSTSUB (stash, "O_CREAT", newSViv (O_CREAT)); |
532 | newCONSTSUB (stash, "O_CREAT", newSViv (O_CREAT)); |
| 532 | newCONSTSUB (stash, "O_TRUNC", newSViv (O_TRUNC)); |
533 | newCONSTSUB (stash, "O_TRUNC", newSViv (O_TRUNC)); |
| 533 | #ifndef _WIN32 |
534 | #ifndef _WIN32 |
| … | |
… | |
| 694 | /* read: check type and grow scalar as necessary */ |
695 | /* read: check type and grow scalar as necessary */ |
| 695 | SvUPGRADE (data, SVt_PV); |
696 | SvUPGRADE (data, SVt_PV); |
| 696 | svptr = SvGROW (data, len + dataoffset + 1); |
697 | svptr = SvGROW (data, len + dataoffset + 1); |
| 697 | } |
698 | } |
| 698 | |
699 | |
| 699 | if (len < 0) |
|
|
| 700 | croak ("length must not be negative"); |
|
|
| 701 | |
|
|
| 702 | { |
700 | { |
| 703 | dREQ; |
701 | dREQ; |
| 704 | |
702 | |
| 705 | req->type = ix; |
703 | req->type = ix; |
| 706 | req->sv1 = newSVsv (fh); |
704 | req->sv1 = newSVsv (fh); |
