Select Code to Download

SV*
myfunc()
...
        RETVAL = newRV_noinc((SV*)hash);
    OUTPUT:
        RETVAL

#!/usr/bin/perl -w

...
my $d : shared;

$d = mymodule::myfunc();

Invalid value for shared scalar at ./a.pl line 15.