| … | |
… | |
| 114 | callback just sets a global variable, as we are only interested in |
114 | callback just sets a global variable, as we are only interested in |
| 115 | synchronous signals (i.e. when the event loop polls), which is why the |
115 | synchronous signals (i.e. when the event loop polls), which is why the |
| 116 | pipe draining is not done automatically. |
116 | pipe draining is not done automatically. |
| 117 | |
117 | |
| 118 | my $interrupt = new Async::Interrupt |
118 | my $interrupt = new Async::Interrupt |
| 119 | cb => sub { undef $SIGNAL_RECEIVED{$signum} } |
119 | cb => sub { undef $SIGNAL_RECEIVED{$signum} }, |
| 120 | signal => $signum, |
120 | signal => $signum, |
| 121 | pipe => [$SIGPIPE->filenos], |
121 | pipe => [$SIGPIPE->filenos], |
| 122 | pipe_autodrain => 0, |
122 | pipe_autodrain => 0, |
| 123 | ; |
123 | ; |
| 124 | |
124 | |
| … | |
… | |
| 236 | # the next line forces initialisation of internal |
236 | # the next line forces initialisation of internal |
| 237 | # signal handling variables, otherwise, PL_sig_pending |
237 | # signal handling variables, otherwise, PL_sig_pending |
| 238 | # etc. might be null pointers. |
238 | # etc. might be null pointers. |
| 239 | $SIG{KILL} = sub { }; |
239 | $SIG{KILL} = sub { }; |
| 240 | |
240 | |
| 241 | our $VERSION = '1.1'; |
241 | our $VERSION = '1.2'; |
| 242 | |
242 | |
| 243 | require XSLoader; |
243 | require XSLoader; |
| 244 | XSLoader::load ("Async::Interrupt", $VERSION); |
244 | XSLoader::load ("Async::Interrupt", $VERSION); |
| 245 | } |
245 | } |
| 246 | |
246 | |
