make ^C throw an interrupt rather than killing the program if it's received while a command is executing

1 files changed, 1 insertions, 0 deletions

diff --git a/bin/te b/bin/te
index 0e3afcd..c79222b 100644
--- a/bin/te
+++ b/bin/te
@@ -32,6 +32,7 @@ COMMAND: while (1) {
             if ($pc eq "\e") {
                 print "\n";
                 ReadMode 3;
+                local $SIG{INT} = sub { die "interrupted!" };
                 eval { $te->execute($command) };
                 print "ERROR: $@\n" if $@;
                 ReadMode 4;