Select Code to Download

return para[1]

$str = pack('ddd', 1.0, 1.1, 1.3);

void
func(doublearrsv)
...
    doublearr = SvPV(doublearrsv, len);//cast warning here
    if(len != sizeof(*doublearr)) croak("bad len");
    do_nothing(&doublearr[2]); //THIS WILL UPDATE IN PERL LAND

@array = unpack('ddd', $str);

@arr = ([11,12,13], [21,22,23], [31,32,33]);
myxsub(@arr);

void
myxsub(...)
...
         SV * sv =  ST(i);
         //do something
    }