Permalink
Browse files

This test had a race condition when run on SunOS. It is fixed, with

thanks to Gérard Henry forhis donation of time on a SunOS machine.
  • Loading branch information...
rcaputo committed May 30, 2009
1 parent 6e965da commit 2e119abb43bb47ba85ca21f8e930f3d8f36a74e6
Showing with 3 additions and 3 deletions.
  1. +3 −3 t/90_regression/rt39872-sigchld.t
@@ -39,7 +39,7 @@ exit;
sub _start {
my( $kernel, $heap ) = @_[KERNEL, HEAP];
- my $prog = <<'PERL';
+ my $prog = <<' PERL';
$|++;
my $N = shift;
print "I am $N\n";
@@ -48,7 +48,7 @@ sub _start {
exit 0 if /^bye/;
print "Unknown command '$_'\n";
}
-PERL
+ PERL
DEBUG and warn "_start";
$kernel->alias_set( 'worker' );
@@ -145,5 +145,5 @@ sub sig_CHLD {
delete $heap->{pid2W}{$pid};
delete $heap->{$N};
delete $heap->{id2W}{ $wheel->ID };
- $kernel->yield( 'done' );
+ $kernel->delay( done => 0.1 );
}

0 comments on commit 2e119ab

Please sign in to comment.