| … | |
… | |
| 105 | eval { |
105 | eval { |
| 106 | my $coro = shift; |
106 | my $coro = shift; |
| 107 | $coro or die "transfer() to empty coroutine $coro"; |
107 | $coro or die "transfer() to empty coroutine $coro"; |
| 108 | &$coro; |
108 | &$coro; |
| 109 | }; |
109 | }; |
| 110 | print STDERR $@ if $@; |
110 | print STDERR $@ || "FATAL: Coro::State callback returned unexpectedly, exiting.\n"; |
| 111 | _exit 254; |
111 | _exit 254; |
| 112 | } |
112 | } |
| 113 | |
113 | |
| 114 | =item $old_save_flags = $state->save ([$new_save_flags]) |
114 | =item $old_save_flags = $state->save ([$new_save_flags]) |
| 115 | |
115 | |
| … | |
… | |
| 124 | |
124 | |
| 125 | Constant Effect |
125 | Constant Effect |
| 126 | SAVE_DEFAV save/restore @_ |
126 | SAVE_DEFAV save/restore @_ |
| 127 | SAVE_DEFSV save/restore $_ |
127 | SAVE_DEFSV save/restore $_ |
| 128 | SAVE_ERRSV save/restore $@ |
128 | SAVE_ERRSV save/restore $@ |
| 129 | SAVE_IRSSV save/restore $/ (the input record separator) |
129 | SAVE_IRSSV save/restore $/ (the Input Record Separator, slow) |
| 130 | SAVE_ALL everything that can be saved |
130 | SAVE_ALL everything that can be saved |
| 131 | |
131 | |
| 132 | These constants are not exported by default. If you don't need any extra |
132 | These constants are not exported by default. If you don't need any extra |
| 133 | additional variables saved, use C<0> as the flags value. |
133 | additional variables saved, use C<0> as the flags value. |
| 134 | |
134 | |
