blob: 74964078e4062be632fe84202d9ea82936ccb90b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package Dpkg::Exit;
use strict;
use warnings;
our @handlers = ();
sub exit_handler {
&$_() foreach (reverse @handlers);
exit(127);
}
$SIG{'INT'} = \&exit_handler;
$SIG{'HUP'} = \&exit_handler;
$SIG{'QUIT'} = \&exit_handler;
# vim: set et sw=4 ts=8
1;
|
