… | |
… | |
670 | req->sv1 = newSVsv (fh); |
670 | req->sv1 = newSVsv (fh); |
671 | req->int1 = PerlIO_fileno (ix == EIO_READ ? IoIFP (sv_2io (fh)) |
671 | req->int1 = PerlIO_fileno (ix == EIO_READ ? IoIFP (sv_2io (fh)) |
672 | : IoOFP (sv_2io (fh))); |
672 | : IoOFP (sv_2io (fh))); |
673 | req->offs = SvOK (offset) ? SvVAL64 (offset) : -1; |
673 | req->offs = SvOK (offset) ? SvVAL64 (offset) : -1; |
674 | req->size = len; |
674 | req->size = len; |
675 | req->sv2 = SvREFCNT_inc (data); |
675 | req->sv2 = SvREFCNT_inc_NN (data); |
676 | req->ptr2 = (char *)svptr + dataoffset; |
676 | req->ptr2 = (char *)svptr + dataoffset; |
677 | req->stroffset = dataoffset; |
677 | req->stroffset = dataoffset; |
678 | |
678 | |
679 | if (!SvREADONLY (data)) |
679 | if (!SvREADONLY (data)) |
680 | { |
680 | { |