… | |
… | |
1859 | |
1859 | |
1860 | static int ecb_cold |
1860 | static int ecb_cold |
1861 | coro_state_dup (pTHX_ MAGIC *mg, CLONE_PARAMS *params) |
1861 | coro_state_dup (pTHX_ MAGIC *mg, CLONE_PARAMS *params) |
1862 | { |
1862 | { |
1863 | /* called when perl clones the current process the slow way (windows process emulation) */ |
1863 | /* called when perl clones the current process the slow way (windows process emulation) */ |
1864 | /* WE SIMply nuke the pointers in the copy, causing perl to croak */ |
1864 | /* we simply nuke the pointers in the copy, causing perl to croak */ |
1865 | mg->mg_ptr = 0; |
1865 | mg->mg_ptr = 0; |
1866 | mg->mg_virtual = 0; |
1866 | mg->mg_virtual = 0; |
1867 | |
1867 | |
1868 | return 0; |
1868 | return 0; |
1869 | } |
1869 | } |