]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/run.perl
treewide: fix %SIG localization, harder
[public-inbox.git] / t / run.perl
index e5ee0ade3de72ca57467e27f72f128b27484de0e..0fe6d08bb9c4c78a87de11a055a5bf61262baf61 100755 (executable)
@@ -168,6 +168,7 @@ my $start_worker = sub {
        my $pid = fork // DIE "fork: $!";
        if ($pid == 0) {
                close $wr if $wr;
+               $SIG{USR1} = undef; # undo parent $SIG{USR1}
                $worker = $$;
                while (1) {
                        my $r = sysread($rd, my $buf, UINT_SIZE);