diff options
Diffstat (limited to 'net/p5-Net-Server')
-rw-r--r-- | net/p5-Net-Server/files/patch-set_ugid | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/net/p5-Net-Server/files/patch-set_ugid b/net/p5-Net-Server/files/patch-set_ugid new file mode 100644 index 000000000000..0fa1327d9a55 --- /dev/null +++ b/net/p5-Net-Server/files/patch-set_ugid @@ -0,0 +1,24 @@ +--- lib/Net/Server/Daemonize.pm.orig Mon Jun 20 08:33:05 2005 ++++ lib/Net/Server/Daemonize.pm Mon Jun 20 08:34:31 2005 +@@ -200,8 +200,8 @@ + sub set_uid { + my $uid = get_uid( shift() ); + $< = $> = $uid; +- if( $< != $uid ){ +- die "Couldn't become uid \"$uid\"\n"; ++ if( $< == $uid ){ ++ return 1; + } + my $result = POSIX::setuid( $uid ); + if( ! defined($result) ){ +@@ -218,8 +218,8 @@ + $) = $gids; + $( = $gid; + my $result = (split(/\s+/,$())[0]; +- if( $result != $gid ){ +- die "Couldn't become gid \"$gid\" ($result)\n"; ++ if( $result == $gid ){ ++ return 1; + } + POSIX::setgid( $gid ) || die "Couldn't POSIX::setgid to \"$gid\" [$!]\n"; + return 1; |