X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=script%2Flei;h=5cad19d776034176552fa352cb6a4415022683e3;hb=cdc569fa2ffcf57e1ebd37621d4d07a9b303c38f;hp=8f6e8aacb86b67470d2dade0fdd7225cc6e7df0a;hpb=25088c21b46b5d97b29ecb1d25b0342f37133b58;p=public-inbox.git diff --git a/script/lei b/script/lei index 8f6e8aac..5cad19d7 100755 --- a/script/lei +++ b/script/lei @@ -107,8 +107,8 @@ my $buf = join("\0", scalar(@ARGV), @ARGV); while (my ($k, $v) = each %ENV) { $buf .= "\0$k=$v" } $buf .= "\0\0"; $send_cmd->($sock, [0, 1, 2, fileno($dh)], $buf, MSG_EOR) or die "sendmsg: $!"; -$SIG{TSTP} = sub { $send_cmd->($sock, [], 'STOP', MSG_EOR); kill 'STOP', $$ }; -$SIG{CONT} = sub { $send_cmd->($sock, [], 'CONT', MSG_EOR) }; +$SIG{TSTP} = sub { send($sock, 'STOP', MSG_EOR); kill 'STOP', $$ }; +$SIG{CONT} = sub { send($sock, 'CONT', MSG_EOR) }; my $x_it_code = 0; while (1) {