From 97188e3aaaf4b950cfd0611c52b932b8aaa85c74 Mon Sep 17 00:00:00 2001
From: Dejan Lesjak <lesi@FreeBSD.org>
Date: Tue, 28 Jun 2005 18:11:38 +0000
Subject: [PATCH] Update to 0.88. Among other, this fixes UID/GID bugs during
 daemonization, so remove patch.

---
 net/p5-Net-Server/Makefile             |  6 +-----
 net/p5-Net-Server/distinfo             |  4 ++--
 net/p5-Net-Server/files/patch-set_ugid | 24 ------------------------
 3 files changed, 3 insertions(+), 31 deletions(-)
 delete mode 100644 net/p5-Net-Server/files/patch-set_ugid

diff --git a/net/p5-Net-Server/Makefile b/net/p5-Net-Server/Makefile
index 3c22fd4fa29b..4160da301795 100644
--- a/net/p5-Net-Server/Makefile
+++ b/net/p5-Net-Server/Makefile
@@ -6,8 +6,7 @@
 #
 
 PORTNAME=	Net-Server
-PORTVERSION=	0.87
-PORTREVISION=	1
+PORTVERSION=	0.88
 CATEGORIES=	net perl5
 MASTER_SITES=	http://www.seamons.com/net_server/ \
 		${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
 .endif
 
-post-patch:
-	@${FIND} ${WRKSRC} -name "*.orig" -delete
-
 .include <bsd.port.post.mk>
diff --git a/net/p5-Net-Server/distinfo b/net/p5-Net-Server/distinfo
index f06e915e53ce..e480fd07ab35 100644
--- a/net/p5-Net-Server/distinfo
+++ b/net/p5-Net-Server/distinfo
@@ -1,2 +1,2 @@
-MD5 (Net-Server-0.87.tar.gz) = 0b8553db414dac4c43b9f9282f8e149c
-SIZE (Net-Server-0.87.tar.gz) = 69235
+MD5 (Net-Server-0.88.tar.gz) = f068d68fb3ccac2ee93860d1fcdbdb4e
+SIZE (Net-Server-0.88.tar.gz) = 71089
diff --git a/net/p5-Net-Server/files/patch-set_ugid b/net/p5-Net-Server/files/patch-set_ugid
deleted file mode 100644
index 0fa1327d9a55..000000000000
--- a/net/p5-Net-Server/files/patch-set_ugid
+++ /dev/null
@@ -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;