--- Async-Interrupt/Interrupt.pm 2009/07/12 01:44:01 1.8 +++ Async-Interrupt/Interrupt.pm 2009/07/14 19:51:24 1.12 @@ -96,13 +96,17 @@ package Async::Interrupt; -no warnings; +use common::sense; BEGIN { - $VERSION = '0.04'; + # the next line forces initialisation of internal + # signal handling # variables + $SIG{KILL} = sub { }; + + our $VERSION = '0.042'; require XSLoader; - XSLoader::load Async::Interrupt::, $VERSION; + XSLoader::load ("Async::Interrupt", $VERSION); } our $DIED = sub { warn "$@" };