Exit on Ctrl+c or Esc.
BUG: https://bugs.openfabrics.org/show_bug.cgi?id=739
Signed-off-by: Vladimir Sokolovsky <vlad@mellanox.co.il>
use File::Copy;
use Cwd;
use Term::ANSIColor qw(:constants);
-
-# use Cwd;
-
+use sigtrap 'handler', \&sig_handler, 'normal-signals';
$| = 1;
my $LOCK_EXCLUSIVE = 2;
my $kernel_rel = $kernel;
$kernel_rel =~ s/-/_/g;
+sub sig_handler
+{
+ exit 1;
+}
+
sub getch
{
my $c;
system("stty -echo raw");
$c=getc(STDIN);
system("stty echo -raw");
+ # Exit on Ctrl+c or Esc
+ if ($c eq "\cC" or $c eq "\e") {
+ print "\n";
+ exit 1;
+ }
print "$c\n";
return $c;
}