view release on metacpan or  search on metacpan

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

sub _warn_if_different_user {
    my ( $self, $proc ) = @_;

    my ( $uid, $eid ) = ( $<, $> );
    if ( ( $eid || $uid ) && $proc->uid != $uid && !$self->use_sudo() ) {
        $log->warnf(
            "warning: process %d is owned by uid %d ('%s'), different than current user %d ('%s'); may not be able to stop server",
            $proc->pid,
            $proc->uid,
            scalar( getpwuid( $proc->uid ) ),
            $uid,
            scalar( getpwuid($uid) )
        );
    }
}

sub _find_process {
    my ( $self, $pid ) = @_;

    my $ptable = process_table();
    my ($proc) = grep { $_->pid == $pid } @{ $ptable->table };
    return $proc;