view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

            }
            close $fh;
        }

        # If no config said anything but systemd-logind appears to be
        # running, the compiled-in default is RemoveIPC=yes.
        $remove_ipc //= -d '/run/systemd/users' ? 1 : 0;

        if ($remove_ipc) {
            my $uid  = $<;
            my $user = eval { scalar getpwuid($uid) };

            my $linger = 0;
            if ($user && -e "/var/lib/systemd/linger/$user") {
                $linger = 1;
            }
            elsif (-d '/run/systemd/users') {
                local $ENV{LC_ALL} = 'C';
                my $out = eval { `loginctl show-user $uid --property=Linger 2>/dev/null` };
                $linger = 1 if defined $out && $out =~ /Linger\s*=\s*yes/i;
            }