SV*
myfunc()
    PREINIT:
        HV *hash;
    CODE:
        hash = newHV();
        RETVAL = newRV_noinc((SV*)hash);
    OUTPUT:
        RETVAL

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;
use threads;
use threads::shared;
use Data::Dumper;
use lib qw|. t ../blib/arch ../blib/lib|;
use mymodule;
use Devel::Peek;
use Clone;

my $d : shared;

$d = mymodule::myfunc();

##</code><code>##

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