Select Code to Download

sub something {
    croak "Usage: ",__PACKAGE__,"::something( $a, $b, $c )"
...
    my $cArray= pack( "d*", @_ );
    _something( $cArray );
}

void
_something( cArray )
        char *  cArray;
    CODE:
        something( (double *)cArray );