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