| … | |
… | |
| 67 | |
67 | |
| 68 | =cut |
68 | =cut |
| 69 | |
69 | |
| 70 | package Coro; |
70 | package Coro; |
| 71 | |
71 | |
| 72 | use strict qw(vars subs); |
72 | use common::sense; |
| 73 | no warnings "uninitialized"; |
73 | |
|
|
74 | use Carp (); |
| 74 | |
75 | |
| 75 | use Guard (); |
76 | use Guard (); |
| 76 | |
77 | |
| 77 | use Coro::State; |
78 | use Coro::State; |
| 78 | |
79 | |
| … | |
… | |
| 153 | handlers), then it must be prepared to be called recursively itself. |
154 | handlers), then it must be prepared to be called recursively itself. |
| 154 | |
155 | |
| 155 | =cut |
156 | =cut |
| 156 | |
157 | |
| 157 | $idle = sub { |
158 | $idle = sub { |
| 158 | require Carp; |
159 | warn "oi\n";#d# |
| 159 | Carp::croak ("FATAL: deadlock detected"); |
160 | Carp::confess ("FATAL: deadlock detected"); |
| 160 | }; |
161 | }; |
| 161 | |
162 | |
| 162 | # this coro is necessary because a coro |
163 | # this coro is necessary because a coro |
| 163 | # cannot destroy itself. |
164 | # cannot destroy itself. |
| 164 | our @destroy; |
165 | our @destroy; |
| … | |
… | |
| 857 | |
858 | |
| 858 | |
859 | |
| 859 | =head1 WINDOWS PROCESS EMULATION |
860 | =head1 WINDOWS PROCESS EMULATION |
| 860 | |
861 | |
| 861 | A great many people seem to be confused about ithreads (for example, Chip |
862 | A great many people seem to be confused about ithreads (for example, Chip |
| 862 | Salzenberg called me unintelligent, incapable, stupid and ingullible, |
863 | Salzenberg called me unintelligent, incapable, stupid and gullible, |
| 863 | while in the same mail making rather confused statements about perl |
864 | while in the same mail making rather confused statements about perl |
| 864 | ithreads (for example, that memory or files would be shared), showing his |
865 | ithreads (for example, that memory or files would be shared), showing his |
| 865 | lack of understanding of this area - if it is hard to understand for Chip, |
866 | lack of understanding of this area - if it is hard to understand for Chip, |
| 866 | it is probably not obvious to everybody). |
867 | it is probably not obvious to everybody). |
| 867 | |
868 | |
