skip_all_without_config('useithreads');
skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
- plan(28);
+ plan(29);
}
use strict;
threads->create(sub { $#a = 1; $a[1] = 2; print qq/ok\n/ })->join;
CODE
+fresh_perl_is(<<'CODE', '3.5,3.5', {}, 'RT #36664: Strange behavior of shared array');
+use threads;
+use threads::shared;
+
+our @List : shared = (1..5);
+my $v = 3.5;
+$v > 0;
+$List[3] = $v;
+printf "%s,%s", @List[(3)], $List[3];
+CODE
+
+
# EOF