t/op/threads.t: tests for RT #36664

Perl · Oct 21, 2016 · 5422beb · 5422beb
1 parent 1994b21
commit 5422beb
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/t/op/threads.t b/t/op/threads.t
@@ -9,7 +9,7 @@ BEGIN {
      skip_all_without_config('useithreads');
      skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
 
-     plan(28);
+     plan(29);
 }
 
 use strict;
@@ -405,4 +405,16 @@ my @a = 1;
 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