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 { |
48c887dd |
20 | unshift @INC, 't'; |
a8b7ef86 |
21 | require Config; import Config; |
22 | if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) { |
23 | print "1..0 # Skip: Storable was not built\n"; |
24 | exit 0; |
25 | } |
26 | unless ($Config{'useithreads'} and eval { require threads; 1 }) { |
27 | print "1..0 # Skip: no threads\n"; |
28 | exit 0; |
29 | } |
f9fa8de0 |
30 | # - is \W, so can't use \b at start. Negative look ahead and look behind |
31 | # works at start/end of string, or where preceded/followed by spaces |
ab6f8ca1 |
32 | if ($] == 5.008002 and eval q{ $Config{'ccflags'} =~ /(?<!\S)-DDEBUGGING(?!\S)/ }) { |
f9fa8de0 |
33 | # Bug caused by change 21610, fixed by change 21849 |
34 | print "1..0 # Skip: tickles bug in threads combined with -DDEBUGGING on 5.8.2\n"; |
35 | exit 0; |
36 | } |
a8b7ef86 |
37 | } |
38 | |
39 | use Test::More; |
40 | |
41 | use strict; |
42 | |
43 | use threads; |
44 | use Storable qw(nfreeze); |
45 | |
46 | plan tests => 2; |
47 | |
48 | threads->new(\&sub1); |
49 | |
50 | $_->join() for threads->list(); |
51 | |
52 | ok 1; |
53 | |
54 | sub sub1 { |
55 | nfreeze {}; |
56 | ok 1; |
57 | } |