no-sigkill-what.p6

#!/usr/bin/env perl6

spurt ‘/tmp/bash-catcher’, ｢#!/bin/bash

trap "echo INT" INT
trap "echo TERM" TERM
trap "echo USR1" USR1

for i in {1..4}; do
    /bin/sleep 1
done
｣;


with Proc::Async.new(‘/bin/bash’, ‘/tmp/bash-catcher’, :w) -> $proc {
    react {
        whenever $proc.start {
            say ‘finished’;
            say .?exitcode;
            say .?signal;
            done
        }
        whenever Promise.in(0.5) {
            $proc.kill(SIGTERM);
        }
        whenever Promise.in(1.0) {
            $proc.kill(SIGTERM);
        }
        whenever Promise.in(1.5) {
            $proc.kill(SIGKILL);
        }
        whenever Promise.in(2.5) {
            note ‘SIGKILL not sent, absolute failure’;
            exit 42
        }
    }
}