1 2# as of 2.09 on win32 Storable w/threads dies with "free to wrong 3# pool" since it uses the same context for different threads. since 4# win32 perl implementation allocates a different memory pool for each 5# thread using the a memory pool from one thread to allocate memory 6# for another thread makes win32 perl very unhappy 7# 8# but the problem exists everywhere, not only on win32 perl , it's 9# just hard to catch it deterministically - since the same context is 10# used if two or more threads happen to change the state of the 11# context in the middle of the operation, and those operations aren't 12# atomic per thread, bad things including data loss and corrupted data 13# can happen. 14# 15# this has been solved in 2.10 by adding a Storable::CLONE which calls 16# Storable::init_perinterp() to create a new context for each new 17# thread when it starts 18 19sub BEGIN { 20 unshift @INC, 't'; 21 unshift @INC, 't/compat' if $] < 5.006002; 22 require Config; import Config; 23 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { 24 print "1..0 # Skip: Storable was not built\n"; 25 exit 0; 26 } 27 unless ($Config{'useithreads'} and eval { require threads; 1 }) { 28 print "1..0 # Skip: no threads\n"; 29 exit 0; 30 } 31 if ($] eq "5.008" || $] eq "5.010000") { 32 print "1..0 # Skip: threads unreliable in perl-$]\n"; 33 exit 0; 34 } 35 # - is \W, so can't use \b at start. Negative look ahead and look behind 36 # works at start/end of string, or where preceded/followed by spaces 37 if ($] == 5.008002 and eval q{ $Config{'ccflags'} =~ /(?<!\S)-DDEBUGGING(?!\S)/ }) { 38 # Bug caused by change 21610, fixed by change 21849 39 print "1..0 # Skip: tickles bug in threads combined with -DDEBUGGING on 5.8.2\n"; 40 exit 0; 41 } 42} 43 44use Test::More; 45 46use strict; 47 48use threads; 49use Storable qw(nfreeze); 50 51plan tests => 2; 52 53threads->new(\&sub1); 54 55$_->join() for threads->list(); 56 57ok 1; 58 59sub sub1 { 60 nfreeze {}; 61 ok 1; 62} 63