1 # Copyright (C) 2015-2019 all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
4 use Fcntl qw(FD_CLOEXEC F_SETFD F_GETFD);
11 IO::Socket::INET->new(
12 LocalAddr => '127.0.0.1',
15 Type => Socket::SOCK_STREAM(),
22 my $s = IO::Socket::UNIX->new(
24 Type => Socket::SOCK_STREAM(),
32 my ($dest, %opt) = @_;
33 my $s = IO::Socket::INET->new(
35 Type => Socket::SOCK_STREAM(),
36 PeerAddr => $dest->sockhost . ':' . $dest->sockport,
44 my ($env, $cmd, $socks) = @_;
46 defined $pid or die "fork failed: $!\n";
48 # pretend to be systemd (cf. sd_listen_fds(3))
49 my $fd = 3; # 3 == SD_LISTEN_FDS_START
50 foreach my $s (@$socks) {
51 my $fl = fcntl($s, F_GETFD, 0);
52 if (($fl & FD_CLOEXEC) != FD_CLOEXEC) {
53 warn "got FD:".fileno($s)." w/o CLOEXEC\n";
55 fcntl($s, F_SETFD, $fl &= ~FD_CLOEXEC);
56 dup2(fileno($s), $fd++) or die "dup2 failed: $!\n";
58 $ENV{LISTEN_PID} = $$;
59 $ENV{LISTEN_FDS} = scalar @$socks;
60 %ENV = (%ENV, %$env) if $env;
62 die "FAIL: ",join(' ', @$cmd), ": $!\n";
67 sub require_git ($;$) {
68 my ($req, $maybe) = @_;
69 my ($req_maj, $req_min) = split(/\./, $req);
70 my ($cur_maj, $cur_min) = (`git --version` =~ /version (\d+)\.(\d+)/);
72 my $req_int = ($req_maj << 24) | ($req_min << 16);
73 my $cur_int = ($cur_maj << 24) | ($cur_min << 16);
74 if ($cur_int < $req_int) {
76 plan skip_all => "git $req+ required, have $cur_maj.$cur_min";