use strict;
use warnings;
use Devel::Peek;

use Inline C =><<'EOC';

void foo(SV * buffer) {
  char *data = "Hello there";
  sv_setpv(buffer, data);
}

EOC

my $buffer = 'z' x 60;
Dump $buffer;
foo($buffer);
Dump $buffer;

##</code><code>##

SV = PV(0x2352069fd80) at 0x235206db678
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x2352275d050 "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"\0
  CUR = 60
  LEN = 64
  COW_REFCNT = 1
SV = PV(0x2352069fd80) at 0x235206db678
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x2352279a8a0 "Hello there"\0
  CUR = 11
  LEN = 16

##</code><code>##

SV = PV(0x2076e35a3b0) at 0x2076e41b338
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x2077084ae90 "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"\0
  CUR = 60
  LEN = 62
SV = PV(0x2076e35a3b0) at 0x2076e41b338
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x2077084ae90 "Hello there"\0
  CUR = 11
  LEN = 62