Skip to content

Instantly share code, notes, and snippets.

@ronaldxs

ronaldxs/signal-test

Created October 2, 2015 00:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ronaldxs/910f61f3c6c3fd4fa74d to your computer and use it in GitHub Desktop.
Save ronaldxs/910f61f3c6c3fd4fa74d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
signal-test
my $proc = Proc::Async.new(
'perl6', '-e',
'say "hello"; signal(SIGINT).tap( { say "signal ..." }); sleep 5; say "bye"'
);
$proc.start;
say $proc.args.perl;
sleep 1;
$proc.kill('INT');
sleep 1;
$proc.kill('INT');
sleep 6;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment