On Thu, Jul 29, 2004 at 09:59:57AM -0400, Mik Firestone wrote: > I am just looking for a URL or an example of how to return a reference to a C > structure to perl. I have read the Cookbook, and I can get my code to work if > I actually create a blessed reference. I would prefer to bless it - I just > want a reference that I can later pass to other C functions. > > I have looked at the docs for Inline::Struct, and I do not think that is what > I want. Again, I do not want a blessed reference, just a reference. I have > read perlguts, and believe the call I need to use is newRV_noinc. > > What follows are two files. The first one is a package that is mostly > stolen^wmodeled on the Cookbook OO example. The main difference is that I do > not bless the structure, I just try to return a ref to it. The other piece of > code exercises my problem -- namely a segfault. > > What have I missed? > > Thanks, > Mik >
Hi, I think the problem is newRV_noinc expects a SV* as an argument. You need to wrap the pointer with a scalar and then pass that in. > SV* induct( char *name, char *rank, long serial ) { > Soldier* soldier = malloc(sizeof(Soldier)); > > soldier->name = strdup(name); > soldier->rank = strdup(rank); > soldier->serial = serial; > > return newRV_noinc((SV*)soldier); return newRV_noinc(newSViv(soldier)); > } > -- Our mission is to seamlessly maintain corporate methods of empowerment and completely leverage existing prospective infrastructures for 100% customer satisfaction