Skip to content

Commit 7008429

Browse files
committed
Don't recommend code that does not work
Please revert once RT #132016 is resolved.
1 parent f81802d commit 7008429

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

doc/Type/Proc/Async.pod6

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,10 @@ moment.
1414
C<Proc::Async> allows you to run external commands asynchronously, capturing
1515
standard output and error handles, and optionally write to its standard input.
1616
17+
=begin comment
18+
⚠ Revert the commit mentioned in RT #132016 once it is resolved
19+
=end comment
20+
1721
my $file = ‘foo’.IO;
1822
spurt $file, “and\nCamelia\n♡\nme\n”;
1923
@@ -34,11 +38,11 @@ standard output and error handles, and optionally write to its standard input.
3438
whenever $proc.print: “I\n♥\nCamelia\n” {
3539
$proc.close-stdin
3640
}
37-
whenever signal(SIGTERM).merge: signal(SIGINT) {
41+
whenever signal(SIGTERM) {
3842
once {
3943
say ‘Signal received, asking the process to stop’;
4044
$proc.kill; # send SIGHUP
41-
whenever signal($_).zip: Promise.in(2).Supply {
45+
whenever signal($_) {
4246
say ‘Kill it!’;
4347
$proc.kill: SIGKILL
4448
}

0 commit comments

Comments
 (0)