diff --git a/pshell.pl b/pshell.pl index c973a0e..ec9439a 100755 --- a/pshell.pl +++ b/pshell.pl @@ -15,6 +15,11 @@ my $env = Environment::SQLite->new( 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"; my $term = Term::ReadLine->new('pshell');