Commit | Line | Data |
a8b7ef86 |
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 | |
19 | sub BEGIN { |
20 | if ($ENV{PERL_CORE}){ |
21 | chdir('t') if -d 't'; |
22 | @INC = ('.', '../lib'); |
23 | } else { |
24 | unshift @INC, 't'; |
25 | } |
26 | require Config; import Config; |
27 | if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { |
28 | print "1..0 # Skip: Storable was not built\n"; |
29 | exit 0; |
30 | } |
31 | unless ($Config{'useithreads'} and eval { require threads; 1 }) { |
32 | print "1..0 # Skip: no threads\n"; |
33 | exit 0; |
34 | } |
35 | } |
36 | |
37 | use Test::More; |
38 | |
39 | use strict; |
40 | |
41 | use threads; |
42 | use Storable qw(nfreeze); |
43 | |
44 | plan tests => 2; |
45 | |
46 | threads->new(\&sub1); |
47 | |
48 | $_->join() for threads->list(); |
49 | |
50 | ok 1; |
51 | |
52 | sub sub1 { |
53 | nfreeze {}; |
54 | ok 1; |
55 | } |