Skip to content

Commit a57e719

Browse files
committed
Revert "Don't recommend code that does not work"
This reverts commit 7008429.
1 parent cbf99c8 commit a57e719

File tree

1 file changed

+2
-6
lines changed

1 file changed

+2
-6
lines changed

doc/Type/Proc/Async.pod6

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -14,10 +14,6 @@ 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-
2117
my $file = ‘foo’.IO;
2218
spurt $file, “and\nCamelia\n♡\nme\n”;
2319
@@ -38,11 +34,11 @@ standard output and error handles, and optionally write to its standard input.
3834
whenever $proc.print: “I\n♥\nCamelia\n” {
3935
$proc.close-stdin
4036
}
41-
whenever signal(SIGTERM) {
37+
whenever signal(SIGTERM).merge: signal(SIGINT) {
4238
once {
4339
say ‘Signal received, asking the process to stop’;
4440
$proc.kill; # sends SIGHUP, change appropriately
45-
whenever signal($_) {
41+
whenever signal($_).zip: Promise.in(2).Supply {
4642
say ‘Kill it!’;
4743
$proc.kill: SIGKILL
4844
}

0 commit comments

Comments
 (0)