Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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...
commit 2e119abb43bb47ba85ca21f8e930f3d8f36a74e6 1 parent 6e965da
Rocco Caputo authored

Showing 1 changed file with 3 additions and 3 deletions. Show diff stats Hide diff stats

  1. 6  t/90_regression/rt39872-sigchld.t
6  t/90_regression/rt39872-sigchld.t
@@ -39,7 +39,7 @@ exit;
39 39
 sub _start {
40 40
 	my( $kernel, $heap ) = @_[KERNEL, HEAP];
41 41
 
42  
-	my $prog = <<'PERL';
  42
+	my $prog = <<'	PERL';
43 43
 		$|++;
44 44
 		my $N = shift;
45 45
 		print "I am $N\n";
@@ -48,7 +48,7 @@ sub _start {
48 48
 			exit 0 if /^bye/;
49 49
 			print "Unknown command '$_'\n";
50 50
 		}
51  
-PERL
  51
+	PERL
52 52
 
53 53
 	DEBUG and warn "_start";
54 54
 	$kernel->alias_set( 'worker' );
@@ -145,5 +145,5 @@ sub sig_CHLD {
145 145
 	delete $heap->{pid2W}{$pid};
146 146
 	delete $heap->{$N};
147 147
 	delete $heap->{id2W}{ $wheel->ID };
148  
-	$kernel->yield( 'done' );
  148
+	$kernel->delay( done => 0.1 );
149 149
 }

0 notes on commit 2e119ab

Please sign in to comment.
Something went wrong with that request. Please try again.