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