… | |
… | |
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 | |