Add signal handlers for SIGINT, SIGCHLD and terminal resize events

This commit is contained in:
kake26 2025-04-14 15:24:59 -05:00
parent 747db0fe15
commit 31203d82fc
Signed by: kake26
GPG key ID: E0A989B571D1F99F

View file

@ -15,6 +15,11 @@ my $env = Environment::SQLite->new(
db_path => 'pshell_env.db' db_path => 'pshell_env.db'
); );
# Signal handling setup
$SIG{INT} = sub { print "\n"; };
$SIG{CHLD} = 'IGNORE';
$SIG{WINCH} = sub { $term->resize_terminal if defined $term };
print "Perl Shell (pshell) - Type 'exit' to quit\n"; print "Perl Shell (pshell) - Type 'exit' to quit\n";
my $term = Term::ReadLine->new('pshell'); my $term = Term::ReadLine->new('pshell');