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