[79052] trunk/dports/perl/p5-io-socket-ssl
l2g at macports.org
l2g at macports.org
Tue May 31 01:51:10 PDT 2011
Revision: 79052
http://trac.macports.org/changeset/79052
Author: l2g at macports.org
Date: 2011-05-31 01:51:10 -0700 (Tue, 31 May 2011)
Log Message:
-----------
p5-io-socket-ssl: upgraded to 1.44; removed patch since it's now moot
Modified Paths:
--------------
trunk/dports/perl/p5-io-socket-ssl/Portfile
Removed Paths:
-------------
trunk/dports/perl/p5-io-socket-ssl/files/patch-t-nonblock.t.diff
Modified: trunk/dports/perl/p5-io-socket-ssl/Portfile
===================================================================
--- trunk/dports/perl/p5-io-socket-ssl/Portfile 2011-05-31 08:47:43 UTC (rev 79051)
+++ trunk/dports/perl/p5-io-socket-ssl/Portfile 2011-05-31 08:51:10 UTC (rev 79052)
@@ -4,8 +4,7 @@
PortSystem 1.0
PortGroup perl5 1.0
-# See patchfiles and livecheck.version at bottom when upgrading. -L2G
-perl5.setup IO-Socket-SSL 1.43
+perl5.setup IO-Socket-SSL 1.44
platforms darwin
maintainers l2g openmaintainer
license Artistic GPL
@@ -17,18 +16,10 @@
oriented interface to SSL sockets. The class is a \
descendent of IO::Socket::INET.
-checksums sha1 44c57e7164b897592295dba633dfe4f93bfc7685 \
- rmd160 ebbbcf41faf160d4f7fbb4c7c45de425fac5c33b
+checksums sha1 d85f450a2d6350a3b06980326ced1c6b7076d66a \
+ rmd160 03385416241c587b307001e1c8035b709e9ca256
depends_lib-append port:p5-net-ssleay port:p5-net-libidn
# Only required for full testing:
#depends_build-append port:p5-io-socket-inet6
-
-# This patch was backported from 1.43_1 (CPAN's version number, not
-# MacPorts'). Once 1.44 or later is released, it will probably be obsolete.
-patchfiles patch-t-nonblock.t.diff
-
-# This is just to quell livecheck until something later than 1.43_1 is
-# released. At that point, it should be removed.
-livecheck.version 1.43_1
Deleted: trunk/dports/perl/p5-io-socket-ssl/files/patch-t-nonblock.t.diff
===================================================================
--- trunk/dports/perl/p5-io-socket-ssl/files/patch-t-nonblock.t.diff 2011-05-31 08:47:43 UTC (rev 79051)
+++ trunk/dports/perl/p5-io-socket-ssl/files/patch-t-nonblock.t.diff 2011-05-31 08:51:10 UTC (rev 79052)
@@ -1,57 +0,0 @@
---- ../IO-Socket-SSL-1.43/t/nonblock.t 2011-05-11 00:56:38.000000000 -0700
-+++ t/nonblock.t 2011-05-12 09:09:54.000000000 -0700
-@@ -91,12 +91,22 @@
-
- # nonblocking connect of tcp socket
- while (1) {
-- $to_server->connect( $server_addr ) && last;
-- if ( $! == EINPROGRESS ) {
-+ connect($to_server,$server_addr ) && last;
-+ if ( $!{EINPROGRESS} ) {
- diag( 'connect in progress' );
-- IO::Select->new( $to_server )->can_read(30) && next;
-+ IO::Select->new( $to_server )->can_write(30) && next;
- print "not ";
- last;
-+ } elsif ( $!{EALREADY} ) {
-+ diag( 'connect not yet completed');
-+ # just wait
-+ select(undef,undef,undef,0.1);
-+ next;
-+ } elsif ( $!{EISCONN} ) {
-+ diag('claims that socket is already connected');
-+ # found on Mac OS X, dunno why it does not tell me that
-+ # the connect succeeded before
-+ last;
- }
- diag( 'connect failed: '.$! );
- print "not ";
-@@ -111,7 +121,27 @@
- $to_server->blocking(0);
-
- # send some plain text on non-ssl socket
-- syswrite( $to_server,'plaintext' ) || print "not ";
-+ my $pmsg = 'plaintext';
-+ while ( $pmsg ne '' ) {
-+ my $w = syswrite( $to_server,$pmsg );
-+ if ( ! defined $w ) {
-+ if ( ! $!{EAGAIN} ) {
-+ diag("syswrite failed with $!");
-+ print "not ";
-+ last;
-+ }
-+ IO::Select->new($to_server)->can_write(30) or do {
-+ diag("failed to get write ready");
-+ print "not ";
-+ last;
-+ };
-+ } elsif ( $w>0 ) {
-+ diag("wrote $w bytes");
-+ substr($pmsg,0,$w,'');
-+ } else {
-+ die "syswrite returned 0";
-+ }
-+ }
- ok( "write plain text" );
-
- # let server catch up, so that it awaits my connection
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110531/7518af02/attachment.html>
More information about the macports-changes
mailing list