Interrupt - A simple module to easily incorporate signal handling into perl code
use Interrupt;
$SIG{'INT' } = \&interrupt;
$SIG{'QUIT'} = \&interrupt;
$SIG{'HUP' } = \&interrupt;
$SIG{'TRAP'} = \&interrupt;
$SIG{'ABRT'} = \&interrupt;
$SIG{'STOP'} = \&interrupt;
$SIG{'IOT'} = \&interrupt;
$SIG{'TERM'} = \&interrupt;
$SIG{'KILL'} = \&interrupt;
Interrupt gives simple handling of signals. It gives a graceful return when a user
issues any sort of signal to exit.
License is granted to reuse and modify this software under the same terms as Perl itself.
The author thanks Jason Fink <jrf@diverge.org> and Jeff Rowan <jrowan@visi.net> for the original code and idea that formed this module.
Check out Systhug: http://www.systhug.com