use warnings;

use Inline C => Config =>
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

SV * foo(char * sv) {
     return newSVpv(sv, 0);
}

SV * foo2(char * sv, int len) {
     return newSVpv(sv, len);
}

EOC

$x = 'hello' . "\0" . 'world';
print $x, " ", length($x), "\n";

$y = foo($x);
print $y, " ", length($y), "\n";

$z = foo2($x, length($x));
print $z, " ", length($z), "\n";