diff -Nru libpoe-component-ikc-perl-0.2401/Changes libpoe-component-ikc-perl-0.2402/Changes --- libpoe-component-ikc-perl-0.2401/Changes 2014-05-16 16:40:59.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/Changes 2014-07-07 18:37:49.000000000 +0000 @@ -1,6 +1,15 @@ Revision history for Perl extension POE::Component::IKC. -0.2400 15 May 2014 +0.2402 7 Jul 2014 + - Don't test POD + - Better handling of EADDRINUSE on Win32 + - Win32 doesn't have open "-|", skip that test for now + +0.2401 16 May 2014 + - Fixed the code in thunking that depended on a non-released version of POE + - Use $Test::Builder::Level + +0.2400 16 May 2014 - Bumped version - Copyright 2014 - Added Server/on_error diff -Nru libpoe-component-ikc-perl-0.2401/debian/changelog libpoe-component-ikc-perl-0.2402/debian/changelog --- libpoe-component-ikc-perl-0.2401/debian/changelog 2014-05-17 12:39:02.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/debian/changelog 2014-07-08 15:35:38.000000000 +0000 @@ -1,3 +1,11 @@ +libpoe-component-ikc-perl (0.2402-1) unstable; urgency=medium + + * New upstream release. + * Drop build dependency on libtest-pod-coverage-perl. + t/02_pod_coverage.t is an AUTHOR test now. + + -- gregor herrmann Tue, 08 Jul 2014 17:35:33 +0200 + libpoe-component-ikc-perl (0.2401-1) unstable; urgency=medium * New upstream release. diff -Nru libpoe-component-ikc-perl-0.2401/debian/control libpoe-component-ikc-perl-0.2402/debian/control --- libpoe-component-ikc-perl-0.2401/debian/control 2014-05-17 12:39:02.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/debian/control 2014-07-08 15:35:38.000000000 +0000 @@ -15,7 +15,6 @@ libpoe-perl (>= 2:1.3110), libpoe-test-loops-perl, libtest-distribution-perl, - libtest-pod-coverage-perl, libtest-pod-perl, netbase Standards-Version: 3.9.5 diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Channel.pm libpoe-component-ikc-perl-0.2402/IKC/Channel.pm --- libpoe-component-ikc-perl-0.2401/IKC/Channel.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Channel.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Channel; ############################################################ -# $Id: Channel.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Channel.pm 1247 2014-07-07 09:06:34Z fil $ # Based on tests/refserver.perl # Contributed by Artur Bergman # Revised for 0.06 by Rocco Caputo @@ -33,7 +33,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(create_ikc_channel); -$VERSION = "0.2401"; +$VERSION = "0.2402"; sub DEBUG () { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/ClientLite.pm libpoe-component-ikc-perl-0.2402/IKC/ClientLite.pm --- libpoe-component-ikc-perl-0.2401/IKC/ClientLite.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/ClientLite.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::ClientLite; ############################################################ -# $Id: ClientLite.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: ClientLite.pm 1247 2014-07-07 09:06:34Z fil $ # By Philp Gwyn # # Copyright 1999-2014 Philip Gwyn. All rights reserved. @@ -26,7 +26,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(create_ikc_client); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Client.pm libpoe-component-ikc-perl-0.2402/IKC/Client.pm --- libpoe-component-ikc-perl-0.2401/IKC/Client.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Client.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Client; ############################################################ -# $Id: Client.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Client.pm 1247 2014-07-07 09:06:34Z fil $ # Based on refserver.perl # Contributed by Artur Bergman # Revised for 0.06 by Rocco Caputo @@ -26,7 +26,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(create_ikc_client); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Freezer.pm libpoe-component-ikc-perl-0.2402/IKC/Freezer.pm --- libpoe-component-ikc-perl-0.2401/IKC/Freezer.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Freezer.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Freezer; ############################################################ -# $Id: Freezer.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Freezer.pm 1247 2014-07-07 09:06:34Z fil $ # Copyright 2001-2014 Philip Gwyn. All rights reserved. # This program is free software; you can redistribute it and/or modify # it under the same terms as Perl itself. @@ -15,7 +15,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(freeze thaw dclone); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Proxy.pm libpoe-component-ikc-perl-0.2402/IKC/Proxy.pm --- libpoe-component-ikc-perl-0.2401/IKC/Proxy.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Proxy.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,8 +1,8 @@ -# $Id: Proxy.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Proxy.pm 1247 2014-07-07 09:06:34Z fil $ package POE::Component::IKC::Proxy; ############################################################################## -# $Id: Proxy.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Proxy.pm 1247 2014-07-07 09:06:34Z fil $ # Copyright 1999-2014 Philip Gwyn. All rights reserved. # This program is free software; you can redistribute it and/or modify # it under the same terms as Perl itself. @@ -21,7 +21,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(create_ikc_proxy); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Responder.pm libpoe-component-ikc-perl-0.2402/IKC/Responder.pm --- libpoe-component-ikc-perl-0.2401/IKC/Responder.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Responder.pm 2014-07-07 18:39:14.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Responder; ############################################################ -# $Id: Responder.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Responder.pm 1248 2014-07-07 09:06:58Z fil $ # Based on tests/refserver.perl # Contributed by Artur Bergman # Revised for 0.06 by Rocco Caputo @@ -27,7 +27,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(create_ikc_responder $ikc); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } @@ -2311,11 +2311,11 @@ return unless $real; my( $errnum, $errstr ) = ( $1, $2 ); if( $op eq 'channel-read' and $errnum == 0 ) { - waypoint "Connection closed"; + warn "Connection closed"; return; } } - waypoint "Error during $op: $message"; + warn "Error during $op: $message"; } In particular, you will note we don't do anything when we detect the channel diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Server.pm libpoe-component-ikc-perl-0.2402/IKC/Server.pm --- libpoe-component-ikc-perl-0.2401/IKC/Server.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Server.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Server; ############################################################ -# $Id: Server.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Server.pm 1247 2014-07-07 09:06:34Z fil $ # Based on refserver.perl and preforkedserver.perl # Contributed by Artur Bergman # Revised for 0.06 by Rocco Caputo @@ -30,15 +30,15 @@ @ISA = qw(Exporter); @EXPORT = qw(create_ikc_server); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } sub DEBUG_USR2 { 1 } BEGIN { # http://support.microsoft.com/support/kb/articles/Q150/5/37.asp - eval '*WSAEAFNOSUPPORT = sub { 10047};'; - if($^O eq 'MSWin32') { - eval '*EADDRINUSE = sub { 10048 };'; + eval '*WSAEAFNOSUPPORT = sub { 10047 };'; + if( $^O eq 'MSWin32' and not eval "EADDRINUSE" ) { + eval '*EADDRINUSE = sub { 10048 };'; } } diff -Nru libpoe-component-ikc-perl-0.2401/IKC/Specifier.pm libpoe-component-ikc-perl-0.2402/IKC/Specifier.pm --- libpoe-component-ikc-perl-0.2401/IKC/Specifier.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC/Specifier.pm 2014-07-07 18:38:49.000000000 +0000 @@ -1,7 +1,7 @@ package POE::Component::IKC::Specifier; ############################################################ -# $Id: Specifier.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: Specifier.pm 1247 2014-07-07 09:06:34Z fil $ # # Copyright 1999-2014 Philip Gwyn. All rights reserved. # This program is free software; you can redistribute it and/or modify @@ -18,7 +18,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw( specifier_parse specifier_name specifier_part); -$VERSION = '0.2401'; +$VERSION = '0.2402'; sub DEBUG { 0 } diff -Nru libpoe-component-ikc-perl-0.2401/IKC.pm libpoe-component-ikc-perl-0.2402/IKC.pm --- libpoe-component-ikc-perl-0.2401/IKC.pm 2014-05-16 19:05:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/IKC.pm 2014-07-07 18:38:50.000000000 +0000 @@ -1,9 +1,9 @@ package POE::Component::IKC; -# $Id: IKC.pm 1228 2014-05-16 19:05:32Z fil $ +# $Id: IKC.pm 1247 2014-07-07 09:06:34Z fil $ use strict; use vars qw( $VERSION ); -$VERSION='0.2401'; +$VERSION='0.2402'; # Force CPAN to see this diff -Nru libpoe-component-ikc-perl-0.2401/META.json libpoe-component-ikc-perl-0.2402/META.json --- libpoe-component-ikc-perl-0.2401/META.json 2014-05-16 19:06:18.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/META.json 2014-07-07 18:40:14.000000000 +0000 @@ -41,5 +41,5 @@ } }, "release_status" : "stable", - "version" : "0.2401" + "version" : "0.2402" } diff -Nru libpoe-component-ikc-perl-0.2401/META.yml libpoe-component-ikc-perl-0.2402/META.yml --- libpoe-component-ikc-perl-0.2401/META.yml 2014-05-16 19:06:17.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/META.yml 2014-07-07 18:40:14.000000000 +0000 @@ -23,4 +23,4 @@ POE: '1.311' Scalar::Util: '1' Test::More: '0.6' -version: '0.2401' +version: '0.2402' diff -Nru libpoe-component-ikc-perl-0.2401/README libpoe-component-ikc-perl-0.2402/README --- libpoe-component-ikc-perl-0.2401/README 2014-03-19 18:13:32.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/README 2014-05-16 19:10:53.000000000 +0000 @@ -20,10 +20,10 @@ STABILITY -I use IKC full time on my sites (for example, http://www.camelot.ca/) so I'd -say it is "stable enough if you know what you're doing", even if it doesn't -implement my full original vision. I use IKC::ClientLite in mod_perl to -talk to POE-based "application servers". - +I used to use IKC full time on my sites. However, I've moved to exclusively +developing Intranet applications. One of my main apps (http://www.quaero.ca/) +has a POEx::HTTP::Server front end and talks IKC with an application server. +This means IKC handles thousands of requests an hour. I trust it, but then I +know what I'm doing. -Philip Gwyn, diff -Nru libpoe-component-ikc-perl-0.2401/t/02_pod_coverage.t libpoe-component-ikc-perl-0.2402/t/02_pod_coverage.t --- libpoe-component-ikc-perl-0.2401/t/02_pod_coverage.t 2014-05-14 20:06:18.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/t/02_pod_coverage.t 2014-07-07 18:31:53.000000000 +0000 @@ -4,6 +4,8 @@ use warnings; use Test::More; +plan skip_all => 'these tests are for authors only' unless + $ENV{AUTHOR_TESTING} or $ENV{RELEASE_TESTING}; eval "use Test::Pod::Coverage 1.00"; plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; diff -Nru libpoe-component-ikc-perl-0.2401/t/40_monitor.t libpoe-component-ikc-perl-0.2402/t/40_monitor.t --- libpoe-component-ikc-perl-0.2401/t/40_monitor.t 2014-05-16 17:45:41.000000000 +0000 +++ libpoe-component-ikc-perl-0.2402/t/40_monitor.t 2014-07-07 18:39:42.000000000 +0000 @@ -5,11 +5,14 @@ use Symbol; -use Test::More ( tests => 22 ); +use Test::More; +plan skip_all => 'This test fails on Win32' if $^O eq 'MSWin32'; + + +plan tests => 22; sub DEBUG () { 0 } -$DB::fork_TTY = $DB::fork_TTY = '/dev/pts/42'; use POE; use POE::Component::IKC::Server;