reorder to avoid race

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 2b1a36c22b21df656ca592cca16439fd029ad00d..9a33d40b3c2f9949df9c2a4e2ba46b4de2b2609f 100755 (executable)
--- a/mr
+++ b/mr
@@ -588,8 +588,8 @@ sub mrs { #{{{
                        $jobs{$pid}=$repo;
                        push @fhs, $fh;
                        push @out, "";
                        $jobs{$pid}=$repo;
                        push @fhs, $fh;
                        push @out, "";

-                       reaper();

                        $SIG{CHLD}=\&reaper;
                        $SIG{CHLD}=\&reaper;

+                       reaper();

                }
                my ($rin, $rout) = ('','', '');
                my $nfound;
                }
                my ($rin, $rout) = ('','', '');
                my $nfound;