X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fspawn.t;fp=t%2Fspawn.t;h=c31c4f193a4fd2379df35252cec28aab425dc754;hb=267371b1273b518215939e817e53733584b68af7;hp=2e4091574e1be4bcbafd91ff851f0938f60557ef;hpb=0a65fd278cb5b4e308fc2535753a3f1a5e78cbf4;p=public-inbox.git diff --git a/t/spawn.t b/t/spawn.t index 2e409157..c31c4f19 100644 --- a/t/spawn.t +++ b/t/spawn.t @@ -31,7 +31,7 @@ use PublicInbox::Spawn qw(which spawn popen_rd); my ($r, $w); pipe $r, $w or die "pipe failed: $!"; my $pid = spawn(['sh', '-c', 'echo $HELLO'], - { 'HELLO' => 'world' }, { 1 => fileno($w) }); + { 'HELLO' => 'world' }, { 1 => $w }); close $w or die "close pipe[1] failed: $!"; is(<$r>, "world\n", 'read stdout of spawned from pipe'); is(waitpid($pid, 0), $pid, 'waitpid succeeds on spawned process');