Select Code to Download

/* Something Perl shouldn't free */
static char s[4] = "\x11\x11\x11\x11";
...
   SvCUR_set(sv, 4);
   return newRV_noinc(sv);
}

SV = IV(0x8add89c) at 0x8add8a0
  REFCNT = 1
...
    PV = 0xb7d0e06c "\21\21\21\21"
    CUR = 4
    LEN = 0

 
          SV * sv = newSV_type(SVt_PV);
          SvPV_set(sv, surface->pixels);
...
          SvLEN_set(sv, 0);
          SvCUR_set(sv, surface->format->BytesPerPixel * surface->w * 
+surface->h);
          RETVAL = newRV_noinc(sv);

SV = RV(0x142b330) at 0x142b324
 REFCNT = 1
...
   PV = 0xcea408 "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
   CUR = 16
   LEN = 0