bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Abort transaction on SIGINT

Browse source
This commit is contained in:
Juerd Waalboer 2019-07-02 04:38:21 +02:00
parent 5d37f7af5b
commit 9f905b84d5
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/sigint
View file

@ -2,4 +2,11 @@
sub command { NEXT }
$SIG{INT} = 'IGNORE';
$SIG{INT} = sub {
$::ABORT_HACK = "^C";
# DO NOT USE this global variable. It's a nasty hack. In most cases,
# you should "return ABORT" instead, or maybe "main::abort()" when doing
# nastier stuff. You should only need $::ABORT_HACK in signal handlers.
};

7
revbank
View file

@ -67,6 +67,13 @@ sub prompt {
my $begin = my $time = time;
while (not $done) {
if ($::ABORT_HACK) {
# Global variable that a signal handling plugin can set.
# Do not use, but "return ABORT" instead.
my $reason = $::ABORT_HACK;
$::ABORT_HACK = 0;
abort($reason);
}
if ($select->can_read(.05)) {
$readline->callback_read_char;
$begin = $time;