r40523 - in /branches/upstream/libcoro-perl/current: ./ Coro/ EV/ EV/t/ Event/ Event/t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Jul 22 18:26:32 UTC 2009
Author: jawnsy-guest
Date: Wed Jul 22 18:26:22 2009
New Revision: 40523
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40523
Log:
[svn-upgrade] Integrating new upstream version, libcoro-perl (5.161)
Modified:
branches/upstream/libcoro-perl/current/Changes
branches/upstream/libcoro-perl/current/Coro.pm
branches/upstream/libcoro-perl/current/Coro/AIO.pm
branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm
branches/upstream/libcoro-perl/current/Coro/BDB.pm
branches/upstream/libcoro-perl/current/Coro/Channel.pm
branches/upstream/libcoro-perl/current/Coro/Debug.pm
branches/upstream/libcoro-perl/current/Coro/Handle.pm
branches/upstream/libcoro-perl/current/Coro/LWP.pm
branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm
branches/upstream/libcoro-perl/current/Coro/RWLock.pm
branches/upstream/libcoro-perl/current/Coro/Select.pm
branches/upstream/libcoro-perl/current/Coro/Semaphore.pm
branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm
branches/upstream/libcoro-perl/current/Coro/Signal.pm
branches/upstream/libcoro-perl/current/Coro/Socket.pm
branches/upstream/libcoro-perl/current/Coro/Specific.pm
branches/upstream/libcoro-perl/current/Coro/State.pm
branches/upstream/libcoro-perl/current/Coro/State.xs
branches/upstream/libcoro-perl/current/Coro/Storable.pm
branches/upstream/libcoro-perl/current/Coro/Timer.pm
branches/upstream/libcoro-perl/current/Coro/Util.pm
branches/upstream/libcoro-perl/current/EV/EV.pm
branches/upstream/libcoro-perl/current/EV/EV.xs
branches/upstream/libcoro-perl/current/EV/t/01_unblock.t
branches/upstream/libcoro-perl/current/Event/Event.pm
branches/upstream/libcoro-perl/current/Event/t/01_unblock.t
branches/upstream/libcoro-perl/current/META.yml
Modified: branches/upstream/libcoro-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Changes?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Changes (original)
+++ branches/upstream/libcoro-perl/current/Changes Wed Jul 22 18:26:22 2009
@@ -7,6 +7,13 @@
TODO: unready_all
TODO: myhttpd header parsing
TODO: channel->maxsize(newsize)?
+
+5.161 Wed Jul 22 04:47:38 CEST 2009
+ - Coro::AnyEvent::poll could have a different prototype when EV was
+ used as backend (analyzed by Tatsuhiko Miyagawa).
+ - Coro::AnyEvent errornously initialised the event loop when loaded,
+ not on demand.
+ - try to workaround rare */t/01_unblock.t failures.
5.16 Tue Jul 21 01:44:37 CEST 2009
- Coro::AnyEvent failed to hook into the event loop
Modified: branches/upstream/libcoro-perl/current/Coro.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro.pm Wed Jul 22 18:26:22 2009
@@ -82,7 +82,7 @@
our $main; # main coro
our $current; # current coro
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
our %EXPORT_TAGS = (
Modified: branches/upstream/libcoro-perl/current/Coro/AIO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/AIO.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/AIO.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/AIO.pm Wed Jul 22 18:26:22 2009
@@ -68,7 +68,7 @@
use base Exporter::;
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our @EXPORT = (@IO::AIO::EXPORT, qw(aio_wait));
our @EXPORT_OK = @IO::AIO::EXPORT_OK;
Modified: branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/AnyEvent.pm Wed Jul 22 18:26:22 2009
@@ -59,7 +59,7 @@
use Coro;
use AnyEvent ();
-our $VERSION = 5.16;
+our $VERSION = 5.161;
#############################################################################
# idle handler
@@ -89,7 +89,7 @@
eval '
*sleep = \&Coro::EV::timer_once;
- *poll = \&Coro::EV::timer_once;
+ *poll = \&Coro::EV::_poll;
*idle = sub {
my $w = EV::idle Coro::rouse_cb;
Coro::rouse_wait;
@@ -126,6 +126,9 @@
$IDLE->{desc} = "[AnyEvent idle process]";
$Coro::idle = $IDLE;
+
+ # call the readyhook, in case coroutines were already readied
+ _activity;
}
};
Modified: branches/upstream/libcoro-perl/current/Coro/BDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/BDB.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/BDB.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/BDB.pm Wed Jul 22 18:26:22 2009
@@ -48,7 +48,7 @@
use base Exporter::;
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our $WATCHER;
BDB::set_sync_prepare {
Modified: branches/upstream/libcoro-perl/current/Coro/Channel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Channel.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Channel.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Channel.pm Wed Jul 22 18:26:22 2009
@@ -33,7 +33,7 @@
use Coro ();
use Coro::Semaphore ();
-our $VERSION = 5.16;
+our $VERSION = 5.161;
sub DATA (){ 0 }
sub SGET (){ 1 }
Modified: branches/upstream/libcoro-perl/current/Coro/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Debug.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Debug.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Debug.pm Wed Jul 22 18:26:22 2009
@@ -122,7 +122,7 @@
use Coro::AnyEvent ();
use Coro::Timer ();
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our %log;
our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1;
Modified: branches/upstream/libcoro-perl/current/Coro/Handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Handle.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Handle.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Handle.pm Wed Jul 22 18:26:22 2009
@@ -46,7 +46,7 @@
use base 'Exporter';
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our @EXPORT = qw(unblock);
=item $fh = new_from_fh Coro::Handle $fhandle [, arg => value...]
Modified: branches/upstream/libcoro-perl/current/Coro/LWP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/LWP.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/LWP.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/LWP.pm Wed Jul 22 18:26:22 2009
@@ -95,7 +95,7 @@
use Net::FTP ();
use Net::NNTP ();
-our $VERSION = 5.16;
+our $VERSION = 5.161;
*Socket::inet_aton = \&Coro::Util::inet_aton;
Modified: branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/MakeMaker.pm Wed Jul 22 18:26:22 2009
@@ -5,7 +5,7 @@
use Config;
use base 'Exporter';
-our $VERSION = 5.16;
+our $VERSION = 5.161;
@EXPORT_OK = qw(&coro_args $installsitearch);
Modified: branches/upstream/libcoro-perl/current/Coro/RWLock.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/RWLock.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/RWLock.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/RWLock.pm Wed Jul 22 18:26:22 2009
@@ -30,7 +30,7 @@
use Coro ();
-$VERSION = 5.16;
+$VERSION = 5.161;
=item $l = new Coro::RWLock;
Modified: branches/upstream/libcoro-perl/current/Coro/Select.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Select.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Select.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Select.pm Wed Jul 22 18:26:22 2009
@@ -67,7 +67,7 @@
use base Exporter::;
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our @EXPORT_OK = "select";
sub import {
Modified: branches/upstream/libcoro-perl/current/Coro/Semaphore.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Semaphore.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Semaphore.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Semaphore.pm Wed Jul 22 18:26:22 2009
@@ -37,7 +37,7 @@
use Coro ();
-$VERSION = 5.16;
+$VERSION = 5.161;
=item new [inital count]
Modified: branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/SemaphoreSet.pm Wed Jul 22 18:26:22 2009
@@ -33,7 +33,7 @@
use strict qw(vars subs);
no warnings;
-our $VERSION = 5.16;
+our $VERSION = 5.161;
use Coro::Semaphore ();
Modified: branches/upstream/libcoro-perl/current/Coro/Signal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Signal.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Signal.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Signal.pm Wed Jul 22 18:26:22 2009
@@ -36,7 +36,7 @@
use Coro::Semaphore ();
-our $VERSION = 5.16;
+our $VERSION = 5.161;
=item $sig = new Coro::Signal;
Modified: branches/upstream/libcoro-perl/current/Coro/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Socket.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Socket.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Socket.pm Wed Jul 22 18:26:22 2009
@@ -75,7 +75,7 @@
use base qw(Coro::Handle IO::Socket::INET);
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our (%_proto, %_port);
Modified: branches/upstream/libcoro-perl/current/Coro/Specific.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Specific.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Specific.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Specific.pm Wed Jul 22 18:26:22 2009
@@ -26,7 +26,7 @@
BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
-$VERSION = 5.16;
+$VERSION = 5.161;
=item new
Modified: branches/upstream/libcoro-perl/current/Coro/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/State.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/State.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/State.pm Wed Jul 22 18:26:22 2009
@@ -93,7 +93,7 @@
use XSLoader;
BEGIN {
- our $VERSION = 5.16;
+ our $VERSION = 5.161;
# must be done here because the xs part expects it to exist
# it might exist already because Coro::Specific created it.
Modified: branches/upstream/libcoro-perl/current/Coro/State.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/State.xs?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/State.xs (original)
+++ branches/upstream/libcoro-perl/current/Coro/State.xs Wed Jul 22 18:26:22 2009
@@ -3395,7 +3395,6 @@
{
coro_readyhook = newSVsv (hook);
CORO_READYHOOK = invoke_sv_ready_hook_helper;
- CORO_READYHOOK ();
}
else
{
Modified: branches/upstream/libcoro-perl/current/Coro/Storable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Storable.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Storable.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Storable.pm Wed Jul 22 18:26:22 2009
@@ -85,7 +85,7 @@
use Storable;
use base "Exporter";
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our @EXPORT = qw(thaw freeze nfreeze blocking_thaw blocking_freeze blocking_nfreeze);
our $GRANULARITY = 0.01;
Modified: branches/upstream/libcoro-perl/current/Coro/Timer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Timer.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Timer.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Timer.pm Wed Jul 22 18:26:22 2009
@@ -30,7 +30,7 @@
use Coro ();
use Coro::AnyEvent ();
-$VERSION = 5.16;
+$VERSION = 5.161;
@EXPORT_OK = qw(timeout sleep);
=item $flag = timeout $seconds;
Modified: branches/upstream/libcoro-perl/current/Coro/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Coro/Util.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Coro/Util.pm (original)
+++ branches/upstream/libcoro-perl/current/Coro/Util.pm Wed Jul 22 18:26:22 2009
@@ -39,7 +39,7 @@
our @EXPORT = qw(gethostbyname gethostbyaddr);
our @EXPORT_OK = qw(inet_aton fork_eval);
-our $VERSION = 5.16;
+our $VERSION = 5.161;
our $MAXPARALLEL = 16; # max. number of parallel jobs
Modified: branches/upstream/libcoro-perl/current/EV/EV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/EV/EV.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/EV/EV.pm (original)
+++ branches/upstream/libcoro-perl/current/EV/EV.pm Wed Jul 22 18:26:22 2009
@@ -58,7 +58,7 @@
use XSLoader;
BEGIN {
- our $VERSION = 5.16;
+ our $VERSION = 5.161;
local $^W = 0; # avoid redefine warning for Coro::ready;
XSLoader::load __PACKAGE__, $VERSION;
Modified: branches/upstream/libcoro-perl/current/EV/EV.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/EV/EV.xs?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/EV/EV.xs (original)
+++ branches/upstream/libcoro-perl/current/EV/EV.xs Wed Jul 22 18:26:22 2009
@@ -333,6 +333,12 @@
CORO_EXECUTE_SLF_XS (slf_init_timer);
void
+_poll (...)
+ PROTOTYPE:
+ CODE:
+ CORO_EXECUTE_SLF_XS (slf_init_timer);
+
+void
_readable_ev (...)
CODE:
items = 1; /* ignore the remaining args for speed inside Coro::Handle */
Modified: branches/upstream/libcoro-perl/current/EV/t/01_unblock.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/EV/t/01_unblock.t?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/EV/t/01_unblock.t (original)
+++ branches/upstream/libcoro-perl/current/EV/t/01_unblock.t Wed Jul 22 18:26:22 2009
@@ -38,6 +38,8 @@
print "ok 8\n";
+ Coro::EV::timer_once 0.1; # maybe this fixes the rare test failures on cygwin
+
$w->print ("x" x (1024*1024*8));
print "ok 10\n";
$w->print ("x" x (1024*1024*8));
Modified: branches/upstream/libcoro-perl/current/Event/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Event/Event.pm?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Event/Event.pm (original)
+++ branches/upstream/libcoro-perl/current/Event/Event.pm Wed Jul 22 18:26:22 2009
@@ -93,7 +93,7 @@
our @EXPORT = qw(loop unloop sweep);
BEGIN {
- our $VERSION = 5.16;
+ our $VERSION = 5.161;
local $^W = 0; # avoid redefine warning for Coro::ready;
XSLoader::load __PACKAGE__, $VERSION;
Modified: branches/upstream/libcoro-perl/current/Event/t/01_unblock.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/Event/t/01_unblock.t?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/Event/t/01_unblock.t (original)
+++ branches/upstream/libcoro-perl/current/Event/t/01_unblock.t Wed Jul 22 18:26:22 2009
@@ -38,6 +38,8 @@
print "ok 8\n";
+ Coro::Event::do_timer (after => 0.1); # see EV/t/01*
+
$w->print ("x" x (1024*1024*8));
print "ok 10\n";
$w->print ("x" x (1024*1024*8));
Modified: branches/upstream/libcoro-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoro-perl/current/META.yml?rev=40523&op=diff
==============================================================================
--- branches/upstream/libcoro-perl/current/META.yml (original)
+++ branches/upstream/libcoro-perl/current/META.yml Wed Jul 22 18:26:22 2009
@@ -11,7 +11,7 @@
},
"generated_by" : "ExtUtils::MakeMaker version 6.50",
"distribution_type" : "module",
- "version" : "5.16",
+ "version" : "5.161",
"name" : "Coro",
"author" : [],
"license" : "unknown",
More information about the Pkg-perl-cvs-commits
mailing list