lib/PublicInbox/LEI.pm | 2 +- diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index abd7fc4823f18854d265192be3db174e4f3e1b4e..c017fd4e94f687d2ccfae51b8430140268626012 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -765,7 +765,7 @@ return send($sock, "recv_cmd failed: $!", MSG_EOR); } $self->{2}->autoflush(1); # keep stdout buffered until x_it|DESTROY # $ENV_STR = join('', map { "\0$_=$ENV{$_}" } keys %ENV); - # $buf = "$$\0$argc\0".join("\0", @ARGV).$ENV_STR."\0\0"; + # $buf = "$argc\0".join("\0", @ARGV).$ENV_STR."\0\0"; substr($buf, -2, 2, '') eq "\0\0" or # s/\0\0\z// return send($sock, 'request command truncated', MSG_EOR); my ($argc, @argv) = split(/\0/, $buf, -1);