Hello community, here is the log from the commit of package perl-MCE for openSUSE:Factory checked in at 2019-12-06 12:08:38 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MCE (Old) and /work/SRC/openSUSE:Factory/.perl-MCE.new.4691 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MCE" Fri Dec 6 12:08:38 2019 rev:14 rq:754473 version:1.864 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MCE/perl-MCE.changes 2019-11-26 17:02:04.544054057 +0100 +++ /work/SRC/openSUSE:Factory/.perl-MCE.new.4691/perl-MCE.changes 2019-12-06 12:08:45.760130181 +0100 @@ -1,0 +2,12 @@ +Thu Dec 5 03:14:39 UTC 2019 - <[email protected]> + +- updated to 1.864 + see /usr/share/doc/packages/perl-MCE/Changes + + 1.864 Wed Dec 04 13:00:00 EST 2019 + + * Bug fix to MCE::Signal - Shared manager not exiting, introduced in 1.863. + + * Use monotonic clock if available in MCE->yield and MCE::Child->yield. + +------------------------------------------------------------------- Old: ---- MCE-1.863.tar.gz New: ---- MCE-1.864.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MCE.spec ++++++ --- /var/tmp/diff_new_pack.UIjtkD/_old 2019-12-06 12:08:47.940129124 +0100 +++ /var/tmp/diff_new_pack.UIjtkD/_new 2019-12-06 12:08:47.944129121 +0100 @@ -17,7 +17,7 @@ Name: perl-MCE -Version: 1.863 +Version: 1.864 Release: 0 %define cpan_name MCE Summary: Many-Core Engine for Perl providing parallel processing capabilities ++++++ MCE-1.863.tar.gz -> MCE-1.864.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/Changes new/MCE-1.864/Changes --- old/MCE-1.863/Changes 2019-11-25 02:05:23.000000000 +0100 +++ new/MCE-1.864/Changes 2019-12-04 18:58:04.000000000 +0100 @@ -1,6 +1,12 @@ Revision history for Perl module MCE. +1.864 Wed Dec 04 13:00:00 EST 2019 + + * Bug fix to MCE::Signal - Shared manager not exiting, introduced in 1.863. + + * Use monotonic clock if available in MCE->yield and MCE::Child->yield. + 1.863 Sun Nov 26 20:00:00 EST 2019 * On Cygwin, silently use Mutex in MCE::Channel when Threads is specified diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/META.json new/MCE-1.864/META.json --- old/MCE-1.863/META.json 2019-11-25 01:55:32.000000000 +0100 +++ new/MCE-1.864/META.json 2019-12-04 18:56:35.000000000 +0100 @@ -65,123 +65,123 @@ "provides" : { "MCE" : { "file" : "lib/MCE.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Candy" : { "file" : "lib/MCE/Candy.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Channel" : { "file" : "lib/MCE/Channel.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Channel::Mutex" : { "file" : "lib/MCE/Channel/Mutex.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Channel::Simple" : { "file" : "lib/MCE/Channel/Simple.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Channel::Threads" : { "file" : "lib/MCE/Channel/Threads.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Child" : { "file" : "lib/MCE/Child.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Input::Generator" : { "file" : "lib/MCE/Core/Input/Generator.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Input::Handle" : { "file" : "lib/MCE/Core/Input/Handle.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Input::Iterator" : { "file" : "lib/MCE/Core/Input/Iterator.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Input::Request" : { "file" : "lib/MCE/Core/Input/Request.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Input::Sequence" : { "file" : "lib/MCE/Core/Input/Sequence.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Manager" : { "file" : "lib/MCE/Core/Manager.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Validation" : { "file" : "lib/MCE/Core/Validation.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Core::Worker" : { "file" : "lib/MCE/Core/Worker.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Flow" : { "file" : "lib/MCE/Flow.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Grep" : { "file" : "lib/MCE/Grep.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Loop" : { "file" : "lib/MCE/Loop.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Map" : { "file" : "lib/MCE/Map.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Mutex" : { "file" : "lib/MCE/Mutex.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Mutex::Channel" : { "file" : "lib/MCE/Mutex/Channel.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Mutex::Channel2" : { "file" : "lib/MCE/Mutex/Channel2.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Mutex::Flock" : { "file" : "lib/MCE/Mutex/Flock.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Queue" : { "file" : "lib/MCE/Queue.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Relay" : { "file" : "lib/MCE/Relay.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Signal" : { "file" : "lib/MCE/Signal.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Step" : { "file" : "lib/MCE/Step.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Stream" : { "file" : "lib/MCE/Stream.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Subs" : { "file" : "lib/MCE/Subs.pm", - "version" : "1.863" + "version" : "1.864" }, "MCE::Util" : { "file" : "lib/MCE/Util.pm", - "version" : "1.863" + "version" : "1.864" } }, "release_status" : "stable", @@ -197,5 +197,5 @@ "url" : "https://github.com/marioroy/mce-perl.git"; } }, - "version" : "1.863" + "version" : "1.864" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/META.yml new/MCE-1.864/META.yml --- old/MCE-1.863/META.yml 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/META.yml 2019-12-04 18:56:35.000000000 +0100 @@ -25,94 +25,94 @@ provides: MCE: file: lib/MCE.pm - version: '1.863' + version: '1.864' MCE::Candy: file: lib/MCE/Candy.pm - version: '1.863' + version: '1.864' MCE::Channel: file: lib/MCE/Channel.pm - version: '1.863' + version: '1.864' MCE::Channel::Mutex: file: lib/MCE/Channel/Mutex.pm - version: '1.863' + version: '1.864' MCE::Channel::Simple: file: lib/MCE/Channel/Simple.pm - version: '1.863' + version: '1.864' MCE::Channel::Threads: file: lib/MCE/Channel/Threads.pm - version: '1.863' + version: '1.864' MCE::Child: file: lib/MCE/Child.pm - version: '1.863' + version: '1.864' MCE::Core::Input::Generator: file: lib/MCE/Core/Input/Generator.pm - version: '1.863' + version: '1.864' MCE::Core::Input::Handle: file: lib/MCE/Core/Input/Handle.pm - version: '1.863' + version: '1.864' MCE::Core::Input::Iterator: file: lib/MCE/Core/Input/Iterator.pm - version: '1.863' + version: '1.864' MCE::Core::Input::Request: file: lib/MCE/Core/Input/Request.pm - version: '1.863' + version: '1.864' MCE::Core::Input::Sequence: file: lib/MCE/Core/Input/Sequence.pm - version: '1.863' + version: '1.864' MCE::Core::Manager: file: lib/MCE/Core/Manager.pm - version: '1.863' + version: '1.864' MCE::Core::Validation: file: lib/MCE/Core/Validation.pm - version: '1.863' + version: '1.864' MCE::Core::Worker: file: lib/MCE/Core/Worker.pm - version: '1.863' + version: '1.864' MCE::Flow: file: lib/MCE/Flow.pm - version: '1.863' + version: '1.864' MCE::Grep: file: lib/MCE/Grep.pm - version: '1.863' + version: '1.864' MCE::Loop: file: lib/MCE/Loop.pm - version: '1.863' + version: '1.864' MCE::Map: file: lib/MCE/Map.pm - version: '1.863' + version: '1.864' MCE::Mutex: file: lib/MCE/Mutex.pm - version: '1.863' + version: '1.864' MCE::Mutex::Channel: file: lib/MCE/Mutex/Channel.pm - version: '1.863' + version: '1.864' MCE::Mutex::Channel2: file: lib/MCE/Mutex/Channel2.pm - version: '1.863' + version: '1.864' MCE::Mutex::Flock: file: lib/MCE/Mutex/Flock.pm - version: '1.863' + version: '1.864' MCE::Queue: file: lib/MCE/Queue.pm - version: '1.863' + version: '1.864' MCE::Relay: file: lib/MCE/Relay.pm - version: '1.863' + version: '1.864' MCE::Signal: file: lib/MCE/Signal.pm - version: '1.863' + version: '1.864' MCE::Step: file: lib/MCE/Step.pm - version: '1.863' + version: '1.864' MCE::Stream: file: lib/MCE/Stream.pm - version: '1.863' + version: '1.864' MCE::Subs: file: lib/MCE/Subs.pm - version: '1.863' + version: '1.864' MCE::Util: file: lib/MCE/Util.pm - version: '1.863' + version: '1.864' recommends: Sereal::Decoder: '3.015' Sereal::Encoder: '3.015' @@ -139,4 +139,4 @@ homepage: https://github.com/marioroy/mce-perl license: http://dev.perl.org/licenses/ repository: https://github.com/marioroy/mce-perl.git -version: '1.863' +version: '1.864' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/Makefile.PL new/MCE-1.864/Makefile.PL --- old/MCE-1.863/Makefile.PL 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/Makefile.PL 2019-12-04 18:56:35.000000000 +0100 @@ -17,7 +17,7 @@ ABSTRACT => 'Many-Core Engine for Perl providing parallel processing capabilities', AUTHOR => 'Mario E. Roy <marioeroy AT gmail DOT com>', NAME => 'MCE', - VERSION => '1.863', + VERSION => '1.864', EXE_FILES => [ @exe_files ], @@ -68,123 +68,123 @@ 'provides' => { 'MCE' => { 'file' => 'lib/MCE.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Candy' => { 'file' => 'lib/MCE/Candy.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Channel' => { 'file' => 'lib/MCE/Channel.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Channel::Mutex' => { 'file' => 'lib/MCE/Channel/Mutex.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Channel::Simple' => { 'file' => 'lib/MCE/Channel/Simple.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Channel::Threads' => { 'file' => 'lib/MCE/Channel/Threads.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Child' => { 'file' => 'lib/MCE/Child.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Input::Generator' => { 'file' => 'lib/MCE/Core/Input/Generator.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Input::Handle' => { 'file' => 'lib/MCE/Core/Input/Handle.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Input::Iterator' => { 'file' => 'lib/MCE/Core/Input/Iterator.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Input::Request' => { 'file' => 'lib/MCE/Core/Input/Request.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Input::Sequence' => { 'file' => 'lib/MCE/Core/Input/Sequence.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Manager' => { 'file' => 'lib/MCE/Core/Manager.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Validation' => { 'file' => 'lib/MCE/Core/Validation.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Core::Worker' => { 'file' => 'lib/MCE/Core/Worker.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Flow' => { 'file' => 'lib/MCE/Flow.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Grep' => { 'file' => 'lib/MCE/Grep.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Loop' => { 'file' => 'lib/MCE/Loop.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Map' => { 'file' => 'lib/MCE/Map.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Mutex' => { 'file' => 'lib/MCE/Mutex.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Mutex::Channel' => { 'file' => 'lib/MCE/Mutex/Channel.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Mutex::Channel2' => { 'file' => 'lib/MCE/Mutex/Channel2.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Mutex::Flock' => { 'file' => 'lib/MCE/Mutex/Flock.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Queue' => { 'file' => 'lib/MCE/Queue.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Relay' => { 'file' => 'lib/MCE/Relay.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Signal' => { 'file' => 'lib/MCE/Signal.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Step' => { 'file' => 'lib/MCE/Step.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Stream' => { 'file' => 'lib/MCE/Stream.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Subs' => { 'file' => 'lib/MCE/Subs.pm', - 'version' => '1.863' + 'version' => '1.864' }, 'MCE::Util' => { 'file' => 'lib/MCE/Util.pm', - 'version' => '1.863' + 'version' => '1.864' } }, 'prereqs' => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/README.md new/MCE-1.864/README.md --- old/MCE-1.863/README.md 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/README.md 2019-12-04 18:56:35.000000000 +0100 @@ -1,6 +1,6 @@ ## Many-Core Engine for Perl -This document describes MCE version 1.863. +This document describes MCE version 1.864. Many-Core Engine (MCE) for Perl helps enable a new level of performance by maximizing all available cores. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Candy.pm new/MCE-1.864/lib/MCE/Candy.pm --- old/MCE-1.863/lib/MCE/Candy.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Candy.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; our @CARP_NOT = qw( MCE ); @@ -240,7 +240,7 @@ =head1 VERSION -This document describes MCE::Candy version 1.863 +This document describes MCE::Candy version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Channel/Mutex.pm new/MCE-1.864/lib/MCE/Channel/Mutex.pm --- old/MCE-1.863/lib/MCE/Channel/Mutex.pm 2019-11-17 02:12:26.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Channel/Mutex.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use base 'MCE::Channel'; use MCE::Mutex (); @@ -339,7 +339,7 @@ =head1 VERSION -This document describes MCE::Channel::Mutex version 1.863 +This document describes MCE::Channel::Mutex version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Channel/Simple.pm new/MCE-1.864/lib/MCE/Channel/Simple.pm --- old/MCE-1.863/lib/MCE/Channel/Simple.pm 2019-11-04 03:29:14.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Channel/Simple.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use base 'MCE::Channel'; use bytes; @@ -328,7 +328,7 @@ =head1 VERSION -This document describes MCE::Channel::Simple version 1.863 +This document describes MCE::Channel::Simple version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Channel/Threads.pm new/MCE-1.864/lib/MCE/Channel/Threads.pm --- old/MCE-1.863/lib/MCE/Channel/Threads.pm 2019-11-04 03:29:17.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Channel/Threads.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use threads; use threads::shared; @@ -341,7 +341,7 @@ =head1 VERSION -This document describes MCE::Channel::Threads version 1.863 +This document describes MCE::Channel::Threads version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Channel.pm new/MCE-1.864/lib/MCE/Channel.pm --- old/MCE-1.863/lib/MCE/Channel.pm 2019-10-10 01:37:57.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Channel.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (TestingAndDebugging::ProhibitNoStrict) @@ -128,7 +128,7 @@ =head1 VERSION -This document describes MCE::Channel version 1.863 +This document describes MCE::Channel version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Child.pm new/MCE-1.864/lib/MCE/Child.pm --- old/MCE-1.863/lib/MCE/Child.pm 2019-11-25 01:40:49.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Child.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ package MCE::Child; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitExplicitReturnUndef) @@ -566,15 +566,19 @@ sub yield { _croak('Usage: MCE::Child->yield()') if ref($_[0]); shift if ( defined $_[0] && $_[0] eq __PACKAGE__ ); - my $pkg = $_SELF->{PKG}; - return unless ( my $mngd = $_MNGD->{$pkg} ); + my $pkg = $_SELF->{PKG} || do { + my $mngd = $_MNGD->{ "$$.$_tid.".caller() } || do { + # construct mngd internally on first use unless defined + init(); $_MNGD->{ "$$.$_tid.".caller() }; + }; + $mngd->{PKG}; + }; - ( $INC{'Coro/AnyEvent.pm'} ) - ? Coro::AnyEvent::sleep( $_DELY->{$pkg}->seconds(@_) ) - : sleep $_DELY->{$pkg}->seconds(@_); + return unless $_DELY->{$pkg}; + my $seconds = $_DELY->{$pkg}->seconds(@_); - return; + MCE::Util::_sleep( $seconds ); } ############################################################################### @@ -795,12 +799,15 @@ sub seconds { my ( $self, $how_long ) = @_; - my ( $delay, $time ) = ( $how_long || $self->[0], Time::HiRes::time() ); - my ( $lapse ) = $self->[1]->recv(); + my $delay = defined($how_long) ? $how_long : $self->[0]; + my $lapse = $self->[1]->recv(); + my $time = MCE::Util::_time(); - if ( !$lapse || $time >= $lapse ) { - $self->[1]->send($time + $delay); - return $delay; + if ( !$delay || !defined $lapse ) { + $lapse = $time; + } + elsif ( $lapse + $delay - $time < 0 ) { + $lapse += int( abs($time - $lapse) / $delay + 0.5 ) * $delay; } $self->[1]->send( $lapse += $delay ); @@ -965,7 +972,7 @@ =head1 VERSION -This document describes MCE::Child version 1.863 +This document describes MCE::Child version 1.864 =head1 SYNOPSIS @@ -1557,6 +1564,9 @@ similarly to MCE's interval option. It throttles workers from running too fast. A demonstration is provided in the next section for fetching URLs in parallel. +The default C<floating_seconds> is 0.008 and 0.015 on UNIX and Windows, +respectively. Pass 0 if you want to give other workers a chance to run. + # total run time: 1.00 second MCE::Child->create( sub { MCE::Child->yield(0.25) } ) for 1 .. 4; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Input/Generator.pm new/MCE-1.864/lib/MCE/Core/Input/Generator.pm --- old/MCE-1.863/lib/MCE/Core/Input/Generator.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Input/Generator.pm 2019-12-04 18:56:35.000000000 +0100 @@ -15,7 +15,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -220,7 +220,7 @@ =head1 VERSION -This document describes MCE::Core::Input::Generator version 1.863 +This document describes MCE::Core::Input::Generator version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Input/Handle.pm new/MCE-1.864/lib/MCE/Core/Input/Handle.pm --- old/MCE-1.863/lib/MCE/Core/Input/Handle.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Input/Handle.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -282,7 +282,7 @@ =head1 VERSION -This document describes MCE::Core::Input::Handle version 1.863 +This document describes MCE::Core::Input::Handle version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Input/Iterator.pm new/MCE-1.864/lib/MCE/Core/Input/Iterator.pm --- old/MCE-1.863/lib/MCE/Core/Input/Iterator.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Input/Iterator.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -137,7 +137,7 @@ =head1 VERSION -This document describes MCE::Core::Input::Iterator version 1.863 +This document describes MCE::Core::Input::Iterator version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Input/Request.pm new/MCE-1.864/lib/MCE/Core/Input/Request.pm --- old/MCE-1.863/lib/MCE/Core/Input/Request.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Input/Request.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -206,7 +206,7 @@ =head1 VERSION -This document describes MCE::Core::Input::Request version 1.863 +This document describes MCE::Core::Input::Request version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Input/Sequence.pm new/MCE-1.864/lib/MCE/Core/Input/Sequence.pm --- old/MCE-1.863/lib/MCE/Core/Input/Sequence.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Input/Sequence.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -231,7 +231,7 @@ =head1 VERSION -This document describes MCE::Core::Input::Sequence version 1.863 +This document describes MCE::Core::Input::Sequence version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Manager.pm new/MCE-1.864/lib/MCE/Core/Manager.pm --- old/MCE-1.863/lib/MCE/Core/Manager.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Manager.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (TestingAndDebugging::ProhibitNoStrict) @@ -699,12 +699,12 @@ my $_app_st = $_interval->{_time} + ($_delay / $_nodes * $_id); my $_wrk_st = ($_delay_wid[$_task_id] - 1) * $_delay + $_app_st; - $_delay = $_wrk_st - time; + $_delay = $_wrk_st - MCE::Util::_time(); if ($_delay < 0.0 && $_app_tb) { my $_count = int($_delay * -1 / $_app_tb + 0.5) + 1; $_delay += $_app_tb * $_count; - $_interval->{_time} = time if ($_count > 2e9); + $_interval->{_time} = MCE::Util::_time() if ($_count > 2e9); } ($_delay > 0.0) @@ -1041,7 +1041,7 @@ =head1 VERSION -This document describes MCE::Core::Manager version 1.863 +This document describes MCE::Core::Manager version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Validation.pm new/MCE-1.864/lib/MCE/Core/Validation.pm --- old/MCE-1.863/lib/MCE/Core/Validation.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Validation.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## Items below are folded into MCE. @@ -192,7 +192,7 @@ $_i->{max_nodes} = 1 unless (exists $_i->{max_nodes}); $_i->{node_id} = 1 unless (exists $_i->{node_id}); - $_i->{_time} = time; + $_i->{_time} = MCE::Util::_time(); } return; @@ -391,7 +391,7 @@ =head1 VERSION -This document describes MCE::Core::Validation version 1.863 +This document describes MCE::Core::Validation version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core/Worker.pm new/MCE-1.864/lib/MCE/Core/Worker.pm --- old/MCE-1.863/lib/MCE/Core/Worker.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core/Worker.pm 2019-12-04 18:56:35.000000000 +0100 @@ -14,7 +14,7 @@ use strict; use warnings; -our $VERSION = '1.863'; +our $VERSION = '1.864'; my $_tid = $INC{'threads.pm'} ? threads->tid() : 0; @@ -744,7 +744,7 @@ =head1 VERSION -This document describes MCE::Core::Worker version 1.863 +This document describes MCE::Core::Worker version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Core.pod new/MCE-1.864/lib/MCE/Core.pod --- old/MCE-1.863/lib/MCE/Core.pod 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Core.pod 2019-12-04 18:56:35.000000000 +0100 @@ -5,7 +5,7 @@ =head1 VERSION -This document describes MCE::Core version 1.863 +This document describes MCE::Core version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Examples.pod new/MCE-1.864/lib/MCE/Examples.pod --- old/MCE-1.863/lib/MCE/Examples.pod 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Examples.pod 2019-12-04 18:56:35.000000000 +0100 @@ -5,7 +5,7 @@ =head1 VERSION -This document describes MCE::Examples version 1.863 +This document describes MCE::Examples version 1.864 =head1 INCLUDED WITH THE DISTRIBUTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Flow.pm new/MCE-1.864/lib/MCE/Flow.pm --- old/MCE-1.863/lib/MCE/Flow.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Flow.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -479,7 +479,7 @@ =head1 VERSION -This document describes MCE::Flow version 1.863 +This document describes MCE::Flow version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Grep.pm new/MCE-1.864/lib/MCE/Grep.pm --- old/MCE-1.863/lib/MCE/Grep.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Grep.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -434,7 +434,7 @@ =head1 VERSION -This document describes MCE::Grep version 1.863 +This document describes MCE::Grep version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Loop.pm new/MCE-1.864/lib/MCE/Loop.pm --- old/MCE-1.863/lib/MCE/Loop.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Loop.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -349,7 +349,7 @@ =head1 VERSION -This document describes MCE::Loop version 1.863 +This document describes MCE::Loop version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Map.pm new/MCE-1.864/lib/MCE/Map.pm --- old/MCE-1.863/lib/MCE/Map.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Map.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -434,7 +434,7 @@ =head1 VERSION -This document describes MCE::Map version 1.863 +This document describes MCE::Map version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Mutex/Channel.pm new/MCE-1.864/lib/MCE/Mutex/Channel.pm --- old/MCE-1.863/lib/MCE/Mutex/Channel.pm 2019-11-17 02:13:45.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Mutex/Channel.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use base 'MCE::Mutex'; use Scalar::Util qw(refaddr weaken); @@ -139,7 +139,7 @@ =head1 VERSION -This document describes MCE::Mutex::Channel version 1.863 +This document describes MCE::Mutex::Channel version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Mutex/Channel2.pm new/MCE-1.864/lib/MCE/Mutex/Channel2.pm --- old/MCE-1.863/lib/MCE/Mutex/Channel2.pm 2019-11-17 02:14:53.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Mutex/Channel2.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use base 'MCE::Mutex::Channel'; use MCE::Util (); @@ -114,7 +114,7 @@ =head1 VERSION -This document describes MCE::Mutex::Channel2 version 1.863 +This document describes MCE::Mutex::Channel2 version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Mutex/Flock.pm new/MCE-1.864/lib/MCE/Mutex/Flock.pm --- old/MCE-1.863/lib/MCE/Mutex/Flock.pm 2019-10-10 01:38:03.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Mutex/Flock.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; use base 'MCE::Mutex'; use Fcntl ':flock'; @@ -181,7 +181,7 @@ =head1 VERSION -This document describes MCE::Mutex::Flock version 1.863 +This document describes MCE::Mutex::Flock version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Mutex.pm new/MCE-1.864/lib/MCE/Mutex.pm --- old/MCE-1.863/lib/MCE/Mutex.pm 2019-11-25 01:36:26.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Mutex.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (TestingAndDebugging::ProhibitNoStrict) @@ -76,7 +76,7 @@ =head1 VERSION -This document describes MCE::Mutex version 1.863 +This document describes MCE::Mutex version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Queue.pm new/MCE-1.864/lib/MCE/Queue.pm --- old/MCE-1.863/lib/MCE/Queue.pm 2019-10-10 01:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Queue.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (Subroutines::ProhibitExplicitReturnUndef) ## no critic (TestingAndDebugging::ProhibitNoStrict) @@ -1601,7 +1601,7 @@ =head1 VERSION -This document describes MCE::Queue version 1.863 +This document describes MCE::Queue version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Relay.pm new/MCE-1.864/lib/MCE/Relay.pm --- old/MCE-1.863/lib/MCE/Relay.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Relay.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized numeric ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -370,7 +370,7 @@ =head1 VERSION -This document describes MCE::Relay version 1.863 +This document describes MCE::Relay version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Signal.pm new/MCE-1.864/lib/MCE/Signal.pm --- old/MCE-1.863/lib/MCE/Signal.pm 2019-11-25 00:30:32.000000000 +0100 +++ new/MCE-1.864/lib/MCE/Signal.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized once ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) @@ -206,6 +206,7 @@ $SIG{__DIE__} = $SIG{__WARN__} = sub {}; if (exists $_sig_name_lkup{$_sig_name}) { + $SIG{INT} = $SIG{$_sig_name} = sub {}; $_exit_status = $MCE::Signal::KILLED = $_is_sig = 1; $_exit_status = 255 if ($_sig_name eq '__DIE__'); $_exit_status = 0 if ($_sig_name eq 'PIPE'); @@ -215,8 +216,6 @@ $MCE::Signal::STOPPED = 1; } - local $SIG{INT} = local $SIG{$_sig_name} = sub {} if $_is_sig; - ## Main process. if ($$ == $main_proc_id) { @@ -439,7 +438,7 @@ =head1 VERSION -This document describes MCE::Signal version 1.863 +This document describes MCE::Signal version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Step.pm new/MCE-1.864/lib/MCE/Step.pm --- old/MCE-1.863/lib/MCE/Step.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Step.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -715,7 +715,7 @@ =head1 VERSION -This document describes MCE::Step version 1.863 +This document describes MCE::Step version 1.864 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Stream.pm new/MCE-1.864/lib/MCE/Stream.pm --- old/MCE-1.863/lib/MCE/Stream.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Stream.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -671,7 +671,7 @@ =head1 VERSION -This document describes MCE::Stream version 1.863 +This document describes MCE::Stream version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Subs.pm new/MCE-1.864/lib/MCE/Subs.pm --- old/MCE-1.863/lib/MCE/Subs.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Subs.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (Subroutines::ProhibitSubroutinePrototypes) ## no critic (TestingAndDebugging::ProhibitNoStrict) @@ -204,7 +204,7 @@ =head1 VERSION -This document describes MCE::Subs version 1.863 +This document describes MCE::Subs version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE/Util.pm new/MCE-1.864/lib/MCE/Util.pm --- old/MCE-1.863/lib/MCE/Util.pm 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE/Util.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized numeric ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) @@ -354,6 +354,46 @@ return; } +############################################################################### +## ---------------------------------------------------------------------------- +## Private methods, providing high-resolution time, for MCE->yield, +## MCE::Child->yield, and MCE::Hobo->yield. +## +############################################################################### + +## Use monotonic clock if available. + +use constant CLOCK_MONOTONIC => eval { + Time::HiRes::clock_gettime( Time::HiRes::CLOCK_MONOTONIC() ); + 1; +}; + +sub _sleep { + my ( $seconds ) = @_; + return if ( $seconds < 0 ); + + if ( $INC{'Coro/AnyEvent.pm'} ) { + Coro::AnyEvent::sleep( $seconds ); + } + elsif ( &Time::HiRes::d_nanosleep ) { + Time::HiRes::nanosleep( $seconds * 1e9 ); + } + elsif ( &Time::HiRes::d_usleep ) { + Time::HiRes::usleep( $seconds * 1e6 ); + } + else { + Time::HiRes::sleep( $seconds ); + } + + return; +} + +sub _time { + return ( CLOCK_MONOTONIC ) + ? Time::HiRes::clock_gettime( Time::HiRes::CLOCK_MONOTONIC() ) + : Time::HiRes::time(); +} + 1; __END__ @@ -370,7 +410,7 @@ =head1 VERSION -This document describes MCE::Util version 1.863 +This document describes MCE::Util version 1.864 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE.pm new/MCE-1.864/lib/MCE.pm --- old/MCE-1.863/lib/MCE.pm 2019-11-25 01:37:57.000000000 +0100 +++ new/MCE-1.864/lib/MCE.pm 2019-12-04 18:56:35.000000000 +0100 @@ -11,7 +11,7 @@ no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.863'; +our $VERSION = '1.864'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -1448,9 +1448,7 @@ chomp($_delay = <$_DAU_W_SOCK>); $_DAT_LOCK->unlock() if $_lock_chn; - sleep $_delay if $_delay > 0.0; - - return; + MCE::Util::_sleep( $_delay ); } ############################################################################### diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCE-1.863/lib/MCE.pod new/MCE-1.864/lib/MCE.pod --- old/MCE-1.863/lib/MCE.pod 2019-10-07 04:37:54.000000000 +0200 +++ new/MCE-1.864/lib/MCE.pod 2019-12-04 18:56:35.000000000 +0100 @@ -5,7 +5,7 @@ =head1 VERSION -This document describes MCE version 1.863 +This document describes MCE version 1.864 Many-Core Engine (MCE) for Perl helps enable a new level of performance by maximizing all available cores.
