Select Code to Download

SV = RV(0x1840114) at 0x194968c <<<<<<<<<< This is the value I receive
+ in the XS code.
  REFCNT = 1
...

r:226004    <<<<<<<<< Printed from Perl
r:194968c   <<<<<<<<< Printed from XS

sv_2cv

Using various gambits, try to get a CV from an SV; in addition, try if
+ possible to set *st and *gvp to the stash and GV associated with it.
+ 

        CV*     sv_2cv(SV* sv, HV** st, GV** gvp, I32 lref)

#! perl -slw
use strict;
...
    call_sv( g_play, G_VOID );
    return 0;
}