r56425 - in /branches/upstream/libpoe-component-sslify-perl/current: Changes META.yml Makefile.PL lib/POE/Component/SSLify.pm lib/POE/Component/SSLify/ClientHandle.pm lib/POE/Component/SSLify/ServerHandle.pm t/apocalypse.t t/simple.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Apr 18 12:09:37 UTC 2010
Author: gregoa
Date: Sun Apr 18 12:09:16 2010
New Revision: 56425
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56425
Log:
[svn-upgrade] Integrating new upstream version, libpoe-component-sslify-perl (0.19)
Modified:
branches/upstream/libpoe-component-sslify-perl/current/Changes
branches/upstream/libpoe-component-sslify-perl/current/META.yml
branches/upstream/libpoe-component-sslify-perl/current/Makefile.PL
branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify.pm
branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ClientHandle.pm
branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ServerHandle.pm
branches/upstream/libpoe-component-sslify-perl/current/t/apocalypse.t
branches/upstream/libpoe-component-sslify-perl/current/t/simple.t
Modified: branches/upstream/libpoe-component-sslify-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/Changes?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/Changes (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/Changes Sun Apr 18 12:09:16 2010
@@ -1,4 +1,8 @@
Revision history for Perl extension POE::Component::SSLify.
+
+* 0.19
+
+ Fixed a warning generated by POE::Component::Client::TCP in t/simple.t, thanks HMBRAND!
* 0.18
Modified: branches/upstream/libpoe-component-sslify-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/META.yml?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/META.yml (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/META.yml Sun Apr 18 12:09:16 2010
@@ -9,7 +9,7 @@
configure_requires:
Module::Build: 0.36
dynamic_config: 0
-generated_by: 'Module::Build version 0.3603'
+generated_by: 'Module::Build version 0.3607'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,13 +18,13 @@
provides:
POE::Component::SSLify:
file: lib/POE/Component/SSLify.pm
- version: 0.18
+ version: 0.19
POE::Component::SSLify::ClientHandle:
file: lib/POE/Component/SSLify/ClientHandle.pm
- version: 0.18
+ version: 0.19
POE::Component::SSLify::ServerHandle:
file: lib/POE/Component/SSLify/ServerHandle.pm
- version: 0.18
+ version: 0.19
requires:
Net::SSLeay: 1.36
perl: 5.006
@@ -33,4 +33,4 @@
homepage: http://search.cpan.org/dist/POE-Component-SSLify
license: http://dev.perl.org/licenses/
repository: http://github.com/apocalypse/perl-poe-sslify
-version: 0.18
+version: 0.19
Modified: branches/upstream/libpoe-component-sslify-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/Makefile.PL?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/Makefile.PL (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/Makefile.PL Sun Apr 18 12:09:16 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
require 5.006;
use ExtUtils::MakeMaker;
WriteMakefile
Modified: branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify.pm?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify.pm (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify.pm Sun Apr 18 12:09:16 2010
@@ -3,7 +3,7 @@
# Initialize our version
use vars qw( $VERSION );
-$VERSION = '0.18';
+$VERSION = '0.19';
# We need Net::SSLeay or all's a failure!
BEGIN {
@@ -58,6 +58,20 @@
# Perl 5.005_03 doesn't like blocking(), so we only use it in
# 5.8.0 and beyond.
if ( $] >= 5.008 and $^O eq 'MSWin32' ) {
+ # TODO investigate this?
+# <kmx> kthakore: Apocalypse: FYI - as regards no-blocking socket dark magic commited to FB while ago - IO::Socket 1.24 (=May/2009) and later supports on Win32 simply $socket->blocking(0);
+# <Apocalypse> kmx: Ah didn't know that - maybe I can use that :)
+# <kmx> Apocalypse: I uderstand that used workaround is from pre IO::Socket 1.24 times
+# <Apocalypse> Ah, my code already did that eh
+# <Apocalypse> if ( $] >= 5.008 and $^O eq 'MSWin32' ) {
+# <Apocalypse> But maybe 5.008 check isn't enough?
+# <kmx> Apocalypse: You'd better check version of IO - see changelog http://cpansearch.perl.org/src/GBARR/IO-1.25/ChangeLog
+# <Apocalypse> Hmm yeah
+# <Apocalypse> * Make non-blocking mode work on Windows in IO::Socket::INET
+# <kmx> Apocalypse: exactly
+# <Apocalypse> Thanks for the tip! I'll go and add a TODO to the sslify code to investigate that :)
+
+
# From IO::Handle POD
# If an error occurs blocking will return undef and $! will be set.
if ( ! $socket->blocking( 0 ) ) {
Modified: branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ClientHandle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ClientHandle.pm?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ClientHandle.pm (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ClientHandle.pm Sun Apr 18 12:09:16 2010
@@ -3,7 +3,7 @@
# Initialize our version
use vars qw( $VERSION );
-$VERSION = '0.18';
+$VERSION = '0.19';
# Import the SSL death routines
use Net::SSLeay qw( die_now die_if_ssl_error );
Modified: branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ServerHandle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ServerHandle.pm?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ServerHandle.pm (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/lib/POE/Component/SSLify/ServerHandle.pm Sun Apr 18 12:09:16 2010
@@ -3,7 +3,7 @@
# Initialize our version
use vars qw( $VERSION );
-$VERSION = '0.18';
+$VERSION = '0.19';
# Import the SSL death routines
use Net::SSLeay qw( die_now die_if_ssl_error );
Modified: branches/upstream/libpoe-component-sslify-perl/current/t/apocalypse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/t/apocalypse.t?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/t/apocalypse.t (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/t/apocalypse.t Sun Apr 18 12:09:16 2010
@@ -2,13 +2,11 @@
use strict; use warnings;
use Test::More;
-eval "use Test::Apocalypse";
+eval "use Test::Apocalypse 0.10";
if ( $@ ) {
plan skip_all => 'Test::Apocalypse required for validating the distribution';
} else {
# lousy hack for kwalitee
require Test::NoWarnings; require Test::Pod; require Test::Pod::Coverage;
- is_apocalypse_here( {
- deny => qr/^(?:(?:OutdatedPrereq|Dependencie)s|ModuleUsed|Strict|Fixme|Pod_Spelling)$/,
- } );
+ is_apocalypse_here();
}
Modified: branches/upstream/libpoe-component-sslify-perl/current/t/simple.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-sslify-perl/current/t/simple.t?rev=56425&op=diff
==============================================================================
--- branches/upstream/libpoe-component-sslify-perl/current/t/simple.t (original)
+++ branches/upstream/libpoe-component-sslify-perl/current/t/simple.t Sun Apr 18 12:09:16 2010
@@ -83,6 +83,21 @@
$heap->{client}->put("pong2");
}
},
+ ClientError => sub
+ {
+ # Thanks to H. Merijn Brand for spotting this FAIL in 5.12.0!
+ # The default PoCo::Server::TCP handler will throw a warning, which causes Test::NoWarnings to FAIL :(
+ my ($syscall, $errno, $error) = @_[ ARG0..ARG2 ];
+
+ # TODO are there other "errors" that is harmless?
+ $error = "Normal disconnection" unless $error;
+ my $msg = "Got SERVER $syscall error $errno: $error";
+ unless ( $syscall eq 'read' and $errno == 0 ) {
+ fail( $msg );
+ } else {
+ diag( $msg );
+ }
+ },
);
POE::Component::Client::TCP->new
@@ -148,6 +163,21 @@
$kernel->yield('shutdown');
}
},
+ ServerError => sub
+ {
+ # Thanks to H. Merijn Brand for spotting this FAIL in 5.12.0!
+ # The default PoCo::Client::TCP handler will throw a warning, which causes Test::NoWarnings to FAIL :(
+ my ($syscall, $errno, $error) = @_[ ARG0..ARG2 ];
+
+ # TODO are there other "errors" that is harmless?
+ $error = "Normal disconnection" unless $error;
+ my $msg = "Got CLIENT $syscall error $errno: $error";
+ unless ( $syscall eq 'read' and $errno == 0 ) {
+ fail( $msg );
+ } else {
+ diag( $msg );
+ }
+ },
);
$poe_kernel->run();
More information about the Pkg-perl-cvs-commits
mailing list