view release on metacpan or  search on metacpan

lib/HADaemon/Control.pm  view on Meta::CPAN

    # ipc_cl_options error checking
    $self->{ipc_cl_options}->{type} ne 'Flock'
        and die "can work only with Flock backend\n";
    $self->{ipc_cl_options}->{max_procs} < 1
        and die "ipc_cl_options: 'max_procs' should be at least 1\n";
    $self->{process_name_change}
        and $self->{ipc_cl_options}->{process_name_change} = 1;

    if ($self->uid) {
        my @uiddata = getpwuid($self->uid);
        @uiddata or die "failed to get info about " . $self->uid . "\n";

        if (!$self->gid) {
            $self->gid($uiddata[3]);
            $self->trace("Implicit GID => " . $uiddata[3]);
        }

        $self->user
            or $self->{user} = $uiddata[0];