From c7a7fd8bcbae6decd026ed0e266aed0e521467eb Mon Sep 17 00:00:00 2001 From: Olli Hauer Date: Sat, 25 Aug 2012 18:44:32 +0000 Subject: [PATCH] - 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 --- net/spread/Makefile | 4 +- .../files/patch-perl__Spread__Spread.pm | 129 ++++++++++++++++-- 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 + # 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