… | |
… | |
736 | PL_curpm = 0; |
736 | PL_curpm = 0; |
737 | PL_curpad = 0; |
737 | PL_curpad = 0; |
738 | PL_localizing = 0; |
738 | PL_localizing = 0; |
739 | PL_dirty = 0; |
739 | PL_dirty = 0; |
740 | PL_restartop = 0; |
740 | PL_restartop = 0; |
741 | #if !PERL_VERSION_ATLEAST (5,10,0) |
741 | #if PERL_VERSION_ATLEAST (5,10,0) |
742 | PL_parser = 0; |
742 | PL_parser = 0; |
743 | #endif |
743 | #endif |
744 | |
744 | |
745 | /* recreate the die/warn hooks */ |
745 | /* recreate the die/warn hooks */ |
746 | PL_diehook = 0; SvSetMagicSV (*hv_fetch (hv_sig, "__DIE__" , sizeof ("__DIE__" ) - 1, 1), rv_diehook ); |
746 | PL_diehook = 0; SvSetMagicSV (*hv_fetch (hv_sig, "__DIE__" , sizeof ("__DIE__" ) - 1, 1), rv_diehook ); |
… | |
… | |
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"); |
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 | |
1141 | /* always use the TRANSFER macro */ |
1141 | /* always use the TRANSFER macro */ |