- update included Spread.pm to the latest version

  http://search.cpan.org/CPAN/authors/id/J/JE/JESUS/Spread-3.17.4.4.tar.gz

- assign the port from apache@ tp ports@ (port is not apache related)

PR:		ports/170124
Submitted by:	Marcello Coutinho <marcellocoutinho@gmail.com>

2 files changed, 122 insertions, 11 deletions

diff --git a/net/spread/Makefile b/net/spread/Makefile
index fd1ea37cab1b..7688c51c0522 100644
--- a/net/spread/Makefile
+++ b/net/spread/Makefile
@@ -7,12 +7,12 @@
 
 PORTNAME=	spread
 PORTVERSION=	3.17.4
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	net perl5
 MASTER_SITES=	http://www.edu-linux.org/down/
 DISTNAME=	${PORTNAME}-src-${PORTVERSION}
 
-MAINTAINER=	apache@FreeBSD.org
+MAINTAINER=	ports@FreeBSD.org
 COMMENT=	The Spread Group Communication System, a network toolkit
 
 MAKE_JOBS_UNSAFE=	yes
diff --git a/net/spread/files/patch-perl__Spread__Spread.pm b/net/spread/files/patch-perl__Spread__Spread.pm
index a753b18f6b45..e525cd2b3aec 100644
--- a/net/spread/files/patch-perl__Spread__Spread.pm
+++ b/net/spread/files/patch-perl__Spread__Spread.pm
@@ -1,13 +1,124 @@
---- perl/Spread/Spread.pm	Mon Dec  8 21:12:18 2003
-+++ perl/Spread/Spread.pm	Mon Dec  8 21:15:44 2003
-@@ -177,8 +177,8 @@
+# This patch updates the included perl module to the latest version.
+# Original Spread.pm plus included test script can be found here:
+# http://search.cpan.org/CPAN/authors/id/J/JE/JESUS/Spread-3.17.4.4.tar.gz
+===========================================================================
+--- ./perl/Spread/Spread.pm.orig	2002-09-26 15:54:46.000000000 +0200
++++ ./perl/Spread/Spread.pm	2012-08-25 20:16:53.000000000 +0200
+@@ -1,9 +1,8 @@
+ # Filename: Spread.pm
+ # Author:   Theo Schlossnagle <jesus@cnds.jhu.edu>
+ # Created:  12th October 1999
+-# Version:  1.03152
+ #
+-# Copyright (c) 1999-2001 Theo Schlossnagle. All rights reserved.
++# Copyright (c) 1999-2006,2008 Theo Schlossnagle. All rights reserved.
+ #   This program is free software; you can redistribute it and/or
+ #   modify it under the same terms as Perl itself.
+ #
+@@ -20,7 +19,7 @@
+ use strict;
+ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
+ 
+-$VERSION = "3.17.0-1.04" ;
++$VERSION = "3.17.4.4" ;
+ 
+ *SP_connect = \&Spread::connect;
+ *SP_disconnect = \&Spread::disconnect;
+@@ -52,7 +51,8 @@
+ 			     CAUSED_BY_LEAVE
+ 			     CAUSED_BY_DISCONNECT
+ 			     CAUSED_BY_NETWORK
+-			     MEMBERSHIP_MESS) ],
++			     MEMBERSHIP_MESS
++			     REJECT_MESS) ],
+ 		ERROR => [ qw($sperrno
+ 			      ACCEPT_SESSION
+ 			      ILLEGAL_GROUP
+@@ -71,7 +71,7 @@
+ 			      REJECT_QUOTA
+ 			      REJECT_VERSION) ],
+ 		SP => [ qw(SP_connect
+-			   SP_disconnecct
++			   SP_disconnect
+ 			   SP_join
+ 			   SP_leave
+ 			   SP_receive
+@@ -101,6 +101,7 @@
+ 	     CAUSED_BY_DISCONNECT
+ 	     CAUSED_BY_NETWORK
+ 	     MEMBERSHIP_MESS
++	     REJECT_MESS
+ 	     
+ 	     ACCEPT_SESSION
+ 	     ILLEGAL_GROUP
+@@ -120,7 +121,7 @@
+ 	     REJECT_VERSION
+ 	     
+ 	     SP_connect
+-	     SP_disconnecct
++	     SP_disconnect
+ 	     SP_join
+ 	     SP_leave
+ 	     SP_receive
+@@ -165,8 +166,6 @@
+ 1;
+ __END__
+ 
+-# Below is the stub of documentation for your module. You better edit it!
+-
+ =head1 NAME
+ 
+ Spread - Perl extension for the Spread group communication system
+@@ -176,15 +175,21 @@
+   use Spread;
  
    # Connect
-   my($mailbox, $private_group) = Spread::connect(
--	spread_name => '4444@host.domain.com',
--	private_name => 'mrcool',
-+	{ spread_name => '4803@host.domain.com',
-+	private_name => 'mrcool', }
- 	);
+-  my($mailbox, $private_group) = Spread::connect(
++  my($mbox, $private_group) = Spread::connect( {
+ 	spread_name => '4444@host.domain.com',
+ 	private_name => 'mrcool',
+-	);
++	} );
++
++  # If you don't give a private name, you'll get a unique name from the spread daemon.
++  my($mailbox, $private_group) = Spread::connect(
++    spread_name => '4444@host.domain.com',
++  );
++
  
    # Join and leave groups
+   my(@group_to_join) = ( 'GroupA', 'GroupB', 'GroupC' );
+   my(@joined_groups) = grep( Spread::join($mbox, $_), @group_to_join );
+-  print "Spread::join -- $sperrorno"
++  print "Spread::join -- $sperrno"
+   	unless (Spread::leave($mbox, 'GroupC'));
+ 
+   # Multicast to group(s)
+@@ -204,7 +209,7 @@
+ 
+   # Disconnect
+   if(Spread::disconnect($mbox)) { print "Successful disconnect\n"; }
+-  else { print "Spread::disconnect -- $sperrorno\n"; }
++  else { print "Spread::disconnect -- $sperrno\n"; }
+ 
+ =head1 DESCRIPTION
+ 
+@@ -213,8 +218,8 @@
+ See man pages for SP_connect, SP_join, SP_multicast, SP_receive,
+ SP_poll, SP_error, SP_leave, SP_disconnect.
+ 
+-$sperror holds either the integer spread error or a descriptive string
+-depending on the context in which $sperror is used.
++$sperrno holds either the integer spread error or a descriptive string
++depending on the context in which $sperrno is used.
+ 
+ =head1 Exported constants
+ 
+@@ -268,6 +273,7 @@
+   REGULAR_MESS
+   REG_MEMB_MESS
+   REJECT_ILLEGAL_NAME
++  REJECT_MESS
+   REJECT_NOT_UNIQUE
+   REJECT_NO_NAME
+   REJECT_QUOTA