diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-09 12:28:20 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-09 12:28:20 -0700 |
commit | 3b3f39226729c27154bc653408e0b7e6d55f96c9 (patch) | |
tree | 339a0f08885501442bf501d5c9117d4dc1083cb2 /bin/locmaint | |
parent | 077816ac1acf33419a54b5d859e695aced4711df (diff) | |
download | dotfiles-3b3f39226729c27154bc653408e0b7e6d55f96c9.tar.gz |
comment
Diffstat (limited to 'bin/locmaint')
-rwxr-xr-x | bin/locmaint | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/bin/locmaint b/bin/locmaint index 25f693c2..ee05ea2c 100755 --- a/bin/locmaint +++ b/bin/locmaint @@ -119,13 +119,10 @@ for (getpwuid($<) . '@' . `hostname -f`) { exit main(); sub main { - # TODO is it possible to let C-c kill processes we spawn, too? - # myrepos might achieve this by means of its - # terminal_friendly_spawn(), though note that a dependency of - # locmaint on IO::Pty::Easy can be at most optional - # - # The basic problem here is that C-c goes to the child process, - # not to locmaint + # note that if Local::Interactive::system_pty_capture falls back + # to calling script(1), this interrupt handler will not work, and + # indeed C-c will not get us out of locmaint at all. So let's + # hope IO::Pty is available. $SIG{INT} = sub { say STDERR "\nlocmaint: interrupted"; exit 2 }; # Parse command line. If any of these get set to false, skip |