Bug#787092: Perl IPC::Open3 produce Zombies when it failed

[Wolfgang Link]

Package: perl
Version: 5.14.2-21

IPC::Open3::open3() does not collect child states after failed.

to reproduce

$ perl -MIPC::Open3 -le 'for (1..10) { my ($in,
$out); eval { my $pid = open3($in, $out, "", "unknownprogram");
waitpid($pid, 0) }; } sleep 100'

Now you have 10 zombies.

Reported to upstream <https://rt.perl.org/rt3/Public/Bug/Display.html?id=114722> with a fix.

Please could you patch it!