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