… | |
… | |
1123 | if (expect_false (next->flags & CF_DESTROYED)) |
1123 | if (expect_false (next->flags & CF_DESTROYED)) |
1124 | croak ("Coro::State::transfer called with destroyed next Coro::State, but can only transfer to inactive states"); |
1124 | croak ("Coro::State::transfer called with destroyed next Coro::State, but can only transfer to inactive states"); |
1125 | |
1125 | |
1126 | if ( |
1126 | if ( |
1127 | #if PERL_VERSION_ATLEAST (5,9,0) |
1127 | #if PERL_VERSION_ATLEAST (5,9,0) |
1128 | expect_false (PL_parser) |
1128 | expect_false (PL_parser && PL_parser->lex_state != LEX_NOTPARSING) |
1129 | #else |
1129 | #else |
1130 | expect_false (PL_lex_state != LEX_NOTPARSING) |
1130 | expect_false (PL_lex_state != LEX_NOTPARSING) |
1131 | #endif |
1131 | #endif |
1132 | ) |
1132 | ) |
1133 | croak ("Coro::State::transfer called while parsing, but this is not supported"); |
1133 | croak ("Coro::State::transfer called while parsing, but this is not supported"); |