| … | |
… | |
| 787 | req->int2 = mode; |
787 | req->int2 = mode; |
| 788 | req->sv1 = newSVsv (fh_or_path); |
788 | req->sv1 = newSVsv (fh_or_path); |
| 789 | |
789 | |
| 790 | if (SvPOK (req->sv1)) |
790 | if (SvPOK (req->sv1)) |
| 791 | { |
791 | { |
|
|
792 | req->type = ix; |
|
|
793 | req->ptr1 = SvPVbyte_nolen (req->sv1); |
|
|
794 | } |
|
|
795 | else |
|
|
796 | { |
| 792 | req->type = EIO_FCHMOD; |
797 | req->type = EIO_FCHMOD; |
| 793 | req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path))); |
798 | req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path))); |
| 794 | } |
|
|
| 795 | else |
|
|
| 796 | { |
|
|
| 797 | req->type = ix; |
|
|
| 798 | req->ptr1 = SvPVbyte_nolen (req->sv1); |
|
|
| 799 | } |
799 | } |
| 800 | |
800 | |
| 801 | REQ_SEND; |
801 | REQ_SEND; |
| 802 | } |
802 | } |
| 803 | |
803 | |
