… | |
… | |
55 | *** |
55 | *** |
56 | |
56 | |
57 | EOF |
57 | EOF |
58 | } |
58 | } |
59 | |
59 | |
|
|
60 | print <<EOF; |
|
|
61 | |
|
|
62 | *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** |
|
|
63 | |
|
|
64 | Coro::Multicore cna do some simple checks to make sure perlinterp_release |
|
|
65 | is called only with a valid perl context, and perlinterp_acquire without, |
|
|
66 | ensuring that they are always called in proper pairs. This is very useful |
|
|
67 | for development of your XS module. |
|
|
68 | |
|
|
69 | This costs a bit of performance though, so it is disabled by default. |
|
|
70 | |
|
|
71 | The environment variable CORO_MULTICORE_CHECK can be used to ste a |
|
|
72 | default for this answer. |
|
|
73 | |
|
|
74 | EOF |
|
|
75 | |
|
|
76 | my $extra = prompt ("Enable extra checks?", $ENV{CORO_MULTICORE_CHECK} ? "y" : "n") =~ /[Yy]/; |
|
|
77 | |
|
|
78 | my $define = sprintf "-DRECURSION_CHECK=%d", $extra; |
|
|
79 | |
60 | WriteMakefile(Coro::MakeMaker::coro_args( |
80 | WriteMakefile(Coro::MakeMaker::coro_args( |
61 | dist => { |
81 | dist => { |
62 | PREOP => 'pod2text Multicore.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;', |
82 | PREOP => 'pod2text Multicore.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;', |
63 | COMPRESS => 'gzip -9v', |
83 | COMPRESS => 'gzip -9v', |
64 | SUFFIX => '.gz', |
84 | SUFFIX => '.gz', |
65 | }, |
85 | }, |
66 | NAME => "Coro::Multicore", |
86 | NAME => "Coro::Multicore", |
67 | VERSION_FROM => "Multicore.pm", |
87 | VERSION_FROM => "Multicore.pm", |
68 | CONFIGURE_REQUIRES => { "ExtUtils::MakeMaker" => 6.52, "Canary::Stability" => 0, "Coro" => 6.44 }, |
88 | CONFIGURE_REQUIRES => { "ExtUtils::MakeMaker" => 6.52, "Canary::Stability" => 0, "Coro" => 6.44 }, |
69 | TEST_REQUIRES => { "Coro" => 6.44 }, |
89 | TEST_REQUIRES => { "Coro" => 6.44 }, |
|
|
90 | DEFINE => $define, |
70 | PREREQ_PM => { "Coro" => 6.44, "AnyEvent" => 7 }, |
91 | PREREQ_PM => { "Coro" => 6.44, "AnyEvent" => 7 }, |
71 | INC => $INC, |
92 | INC => $INC, |
72 | LIBS => $LIBS, |
93 | LIBS => $LIBS, |
73 | )); |
94 | )); |
74 | |
95 | |