Help for this page

Select Code to Download

Select or download this

Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
{
...
    SV * const mstr = *++mark;
    const I32 mpos = SvIVx(*++mark);
    const I32 msize = SvIVx(*++mark);

Select or download this

if (optype == OP_SHMREAD) {
    char *mbuf;
...
    mbuf = SvGROW(mstr, (STRLEN)msize+1);

    Copy(shm + mpos, mbuf, msize, char);