lei: get rid of client {pid} field

[public-inbox.git] / script / lei

diff --git a/script/lei b/script/lei
index d954b9eb4cfa72dc96b5a945e720c0e285ddc163..bea06b2c0f6edbe4ce5bc810c62bb26c76e0451c 100755 (executable)
--- a/script/lei
+++ b/script/lei
@@ -62,12 +62,12 @@ Falling back to (slow) one-shot mode
        1;
 }) { # (Socket::MsgHdr|IO::FDPass|Inline::C), $sock, $pwd are all available:
        local $ENV{PWD} = $pwd;
-       my $buf = join("\0", $$, scalar(@ARGV), @ARGV);
+       my $buf = join("\0", scalar(@ARGV), @ARGV);
        while (my ($k, $v) = each %ENV) { $buf .= "\0$k=$v" }
        $buf .= "\0\0";
        select $sock;
        $| = 1; # unbuffer selected $sock
-       $send_cmd->($sock, 0, 1, 2, $buf, 0);
+       $send_cmd->($sock, [ 0, 1, 2 ], $buf, 0);
        while ($buf = <$sock>) {
                $buf =~ /\Aexit=([0-9]+)\n\z/ and exit($1 + 0);
                die $buf;