Update:perlbug perl #30702.

If you use threads::shared::share() on an initialised scalar, it retains it's value:

P:\test>perl -Mthreads -Mthreads::shared 
-wle"my $a = 1; print $a; share( $a ); print $a "
1
1
[download]

Do the same thing with an initialised array or hash and the current values ae lost:

P:\test>perl -Mthreads -Mthreads::shared -Mstrict 
-wle"my @a = ( 1,2,3); print @a; share( @a ); print @a "
123

P:\test>perl -Mthreads -Mthreads::shared 
-wle"my %a = ( 1,2,3,4 ); print %a; share( %a ); print %a "
1234
[download]

This appears to me to be a bug from my reading of the docs. Anyone agree?