|
Lines 87-93
if ( defined( $config->{'server-params'} ) ) {
Link Here
|
| 87 |
|
87 |
|
| 88 |
# Add user and group to prevent warn from Net::Server. |
88 |
# Add user and group to prevent warn from Net::Server. |
| 89 |
push @params, 'user=' . $>; |
89 |
push @params, 'user=' . $>; |
| 90 |
push @params, 'group=' . $>; |
90 |
|
|
|
91 |
# $) can contain supplementary groups like "1010 1010" -> Net::Server tries setgroups() and fails. |
| 92 |
my ($egid) = split /\s+/, $); |
| 93 |
$egid ||= $(; # fallback to real gid just in case |
| 94 |
push @params, 'group=' . $egid; |
| 91 |
|
95 |
|
| 92 |
# |
96 |
# |
| 93 |
# This is the main event. |
97 |
# This is the main event. |
| 94 |
- |
|
|