Hello community, here is the log from the commit of package perl-Minion for openSUSE:Factory checked in at 2016-03-16 10:34:08 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Minion (Old) and /work/SRC/openSUSE:Factory/.perl-Minion.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Minion" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Minion/perl-Minion.changes 2016-02-26 00:38:57.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Minion.new/perl-Minion.changes 2016-03-16 10:34:09.000000000 +0100 @@ -1,0 +2,9 @@ +Tue Mar 8 10:31:57 UTC 2016 - coolo@suse.com + +- updated to 5.01 + see /usr/share/doc/packages/perl-Minion/Changes + + 5.01 2016-02-24 + - Fixed worker command to repair in regular intervals. + +------------------------------------------------------------------- Old: ---- Minion-5.0.tar.gz New: ---- Minion-5.01.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Minion.spec ++++++ --- /var/tmp/diff_new_pack.vkj6sv/_old 2016-03-16 10:34:10.000000000 +0100 +++ /var/tmp/diff_new_pack.vkj6sv/_new 2016-03-16 10:34:10.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Minion -Version: 5.0 +Version: 5.01 Release: 0 %define cpan_name Minion Summary: Job queue ++++++ Minion-5.0.tar.gz -> Minion-5.01.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-5.0/Changes new/Minion-5.01/Changes --- old/Minion-5.0/Changes 2016-02-17 08:10:29.000000000 +0100 +++ new/Minion-5.01/Changes 2016-02-24 12:00:57.000000000 +0100 @@ -1,4 +1,7 @@ +5.01 2016-02-24 + - Fixed worker command to repair in regular intervals. + 5.0 2016-02-17 - Added start event to Minion::Job. - Added -R option to worker command. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-5.0/META.json new/Minion-5.01/META.json --- old/Minion-5.0/META.json 2016-02-17 14:41:59.000000000 +0100 +++ new/Minion-5.01/META.json 2016-02-24 12:05:00.000000000 +0100 @@ -54,5 +54,5 @@ }, "x_IRC" : "irc://irc.perl.org/#mojo" }, - "version" : "5.0" + "version" : "5.01" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-5.0/META.yml new/Minion-5.01/META.yml --- old/Minion-5.0/META.yml 2016-02-17 14:41:59.000000000 +0100 +++ new/Minion-5.01/META.yml 2016-02-24 12:05:00.000000000 +0100 @@ -27,4 +27,4 @@ homepage: http://mojolicious.org license: http://www.opensource.org/licenses/artistic-license-2.0 repository: https://github.com/kraih/minion.git -version: '5.0' +version: '5.01' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-5.0/lib/Minion/Command/minion/worker.pm new/Minion-5.01/lib/Minion/Command/minion/worker.pm --- old/Minion-5.0/lib/Minion/Command/minion/worker.pm 2016-02-17 08:18:54.000000000 +0100 +++ new/Minion-5.01/lib/Minion/Command/minion/worker.pm 2016-02-24 12:02:24.000000000 +0100 @@ -43,8 +43,9 @@ if (($self->{check} || 0) < steady_time) { my $app = $self->app; $app->log->debug('Checking worker registry and job queue'); - my $repair = $self->{repair}; - $self->{check} = steady_time + ($repair - int rand $repair / 2); + $app->minion->repair; + $self->{check} + = steady_time + ($self->{repair} - int rand $self->{repair} / 2); } # Check if jobs are finished @@ -93,6 +94,7 @@ -q, --queue <name> One or more queues to get jobs from, defaults to "default" -R, --repair-interval <seconds> Repair interval, defaults to 21600 + (6 hours) =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Minion-5.0/lib/Minion.pm new/Minion-5.01/lib/Minion.pm --- old/Minion-5.0/lib/Minion.pm 2016-02-17 08:45:14.000000000 +0100 +++ new/Minion-5.01/lib/Minion.pm 2016-02-17 14:42:21.000000000 +0100 @@ -16,7 +16,7 @@ has remove_after => 172800; has tasks => sub { {} }; -our $VERSION = '5.0'; +our $VERSION = '5.01'; sub add_task { ($_[0]->tasks->{$_[1]} = $_[2]) and return $_[0] }