sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 09:49:18 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update to 0.88.

Browse source 
Among other, this fixes UID/GID bugs during daemonization, so remove patch.
This commit is contained in:
Dejan Lesjak 2005-06-28 18:11:38 +00:00
parent b8aa331a47
commit 97188e3aaa
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=138125
3 changed files with 3 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
net/p5-Net-Server/Makefile
View file

@ -6,8 +6,7 @@
# #
PORTNAME= Net-Server PORTNAME= Net-Server
PORTVERSION= 0.87 PORTVERSION= 0.88
PORTREVISION= 1
CATEGORIES= net perl5 CATEGORIES= net perl5
MASTER_SITES= http://www.seamons.com/net_server/ \ MASTER_SITES= http://www.seamons.com/net_server/ \
${MASTER_SITE_PERL_CPAN} ${MASTER_SITE_PERL_CPAN}
@ -42,7 +41,4 @@ BUILD_DEPENDS+= ${SITE_PERL}/${PERL_ARCH}/IO/Socket/UNIX.pm:${PORTSDIR}/devel/p5
RUN_DEPENDS+= ${SITE_PERL}/${PERL_ARCH}/IO/Socket/UNIX.pm:${PORTSDIR}/devel/p5-IO RUN_DEPENDS+= ${SITE_PERL}/${PERL_ARCH}/IO/Socket/UNIX.pm:${PORTSDIR}/devel/p5-IO
.endif .endif
post-patch:
@${FIND} ${WRKSRC} -name "*.orig" -delete
.include <bsd.port.post.mk> .include <bsd.port.post.mk>

4
net/p5-Net-Server/distinfo
View file

@ -1,2 +1,2 @@
MD5 (Net-Server-0.87.tar.gz) = 0b8553db414dac4c43b9f9282f8e149c MD5 (Net-Server-0.88.tar.gz) = f068d68fb3ccac2ee93860d1fcdbdb4e
SIZE (Net-Server-0.87.tar.gz) = 69235 SIZE (Net-Server-0.88.tar.gz) = 71089

24
net/p5-Net-Server/files/patch-set_ugid
View file

@ -1,24 +0,0 @@
--- 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;