Select Code to Download

       Newx(buf, somesize+1, char);
       /* ... fill in buf ... */
       buf[somesize] = '\0';
       sv_usepvn_flags(sv, buf, somesize, SV_SMAGIC | SV_HAS_TRAILING_
+NUL);
       /* buf now belongs to perl, don't release it */