Select Code to Download

    SV* sv = newSV_type(SVt_PV);
    SvPV_set(sv, (char*)u_ptr);
    SvLEN_set(sv, 0);              /* So Perl won't free it. */
    SvCUR_set(sv, sizeof(Uint32));
    SvPOK_on(sv);

SV * construct_p_matrix ( SDL_Surface *surface )
{
    ...
    return newRV_noinc(matrix);
}

use strict;
use warnings;
...
vec($$ref, 0, 32) = 0x66666666;                # OK
$ref = fetch();
print(unpack('H*', $$ref), "\n");

11111111
11111111
...
44444444
55555555
66666666

vec($surf32_matrix->[0][0], 0, 32) = 0x12345678;