lib/PublicInbox/LeiSucks.pm | 4 +++- diff --git a/lib/PublicInbox/LeiSucks.pm b/lib/PublicInbox/LeiSucks.pm index e832f95e07367d28bfcea8e6a0c5b77d026b71ba..8e866fc96655a9dd5a6342de43217da0a57e14f5 100644 --- a/lib/PublicInbox/LeiSucks.pm +++ b/lib/PublicInbox/LeiSucks.pm @@ -11,6 +11,7 @@ use Digest::SHA (); use Config; use POSIX (); use PublicInbox::Config; +use PublicInbox::IPC; sub lei_sucks { my ($lei, @argv) = @_; @@ -22,9 +23,10 @@ ',u=x32' : ',u=x86'; } eval { require PublicInbox }; my $pi_ver = eval('$PublicInbox::VERSION') // '(???)'; + my $nproc = PublicInbox::IPC::detect_nproc() // '?'; my @out = ("lei $pi_ver\n", "perl $Config{version} / $os $rel / $mac ". - "ptrsize=$Config{ptrsize}\n"); + "ptrsize=$Config{ptrsize} nproc=$nproc\n"); chomp(my $gv = `git --version` || "git missing"); $gv =~ s/ version / /; my $json = ref(PublicInbox::Config->json);