| … | |
… | |
| 1130 | |
1130 | |
| 1131 | if (expect_false (next->flags & CF_DESTROYED)) |
1131 | if (expect_false (next->flags & CF_DESTROYED)) |
| 1132 | croak ("Coro::State::transfer called with destroyed next Coro::State, but can only transfer to inactive states"); |
1132 | croak ("Coro::State::transfer called with destroyed next Coro::State, but can only transfer to inactive states"); |
| 1133 | |
1133 | |
| 1134 | #if !PERL_VERSION_ATLEAST (5,10,0) |
1134 | #if !PERL_VERSION_ATLEAST (5,10,0) |
| 1135 | if (expect_false (PL_lex_state != LEX_NOTPARSING) |
1135 | if (expect_false (PL_lex_state != LEX_NOTPARSING)) |
| 1136 | croak ("Coro::State::transfer called while parsing, but this is not supported in your perl version"); |
1136 | croak ("Coro::State::transfer called while parsing, but this is not supported in your perl version"); |
| 1137 | #endif |
1137 | #endif |
| 1138 | } |
1138 | } |
| 1139 | } |
1139 | } |
| 1140 | |
1140 | |
