On Aug 30, 3:01 am, [EMAIL PROTECTED] (Patrick Dupre) wrote: . . > I do: > AV* av ; > > then av = (AV*) svRV (retval) ; >
Looks ok to me. Install Inline::C so that you can quickly and easily test things out: ---------------------------------------- use warnings; use strict; use Inline C => Config => BUILD_NOISY => 1; use Inline C => <<'EOC'; AV * foo(SV * x) { AV * av; av = (AV*)SvRV(x); return av; } EOC my @in = (1,2,3,4,5,6); my $out = foo([EMAIL PROTECTED]); print "@$out\n"; # 1 2 3 4 5 6 ---------------------------------------- $out is a reference to @in. Is that what you want ? Cheers, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/