r63301 - in /branches/upstream/libthread-pool-simple-perl/current: Changes META.yml Simple.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Mon Oct  4 13:44:21 2010
New Revision: 63301

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63301
Log:
[svn-upgrade] new version libthread-pool-simple-perl (0.25)

Modified:
    branches/upstream/libthread-pool-simple-perl/current/Changes
    branches/upstream/libthread-pool-simple-perl/current/META.yml
    branches/upstream/libthread-pool-simple-perl/current/Simple.pm

Modified: branches/upstream/libthread-pool-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libthread-pool-simple-perl/current/Changes?rev=63301&op=diff
==============================================================================
--- branches/upstream/libthread-pool-simple-perl/current/Changes (original)
+++ branches/upstream/libthread-pool-simple-perl/current/Changes Mon Oct  4 13:44:21 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Thread::Pool::Simple.
+
+0.25  23 SEP 2010
+        - fixd [rt.cpan.org #61557] "add" method randomly fails to fire on Win32
+          (thanks Aaron Wirtz for reporting and providing a fix)  
 
 0.24  3 SEP 2009
       	- used a workaround to avoid a rare problem when running under

Modified: branches/upstream/libthread-pool-simple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libthread-pool-simple-perl/current/META.yml?rev=63301&op=diff
==============================================================================
--- branches/upstream/libthread-pool-simple-perl/current/META.yml (original)
+++ branches/upstream/libthread-pool-simple-perl/current/META.yml Mon Oct  4 13:44:21 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Thread-Pool-Simple
-version:             0.24
+version:             0.25
 abstract:            ~
 license:             ~
 author:              

Modified: branches/upstream/libthread-pool-simple-perl/current/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libthread-pool-simple-perl/current/Simple.pm?rev=63301&op=diff
==============================================================================
--- branches/upstream/libthread-pool-simple-perl/current/Simple.pm (original)
+++ branches/upstream/libthread-pool-simple-perl/current/Simple.pm Mon Oct  4 13:44:21 2010
@@ -9,7 +9,7 @@
 use Thread::Queue;
 use Thread::Semaphore;
 
-our $VERSION = '0.24';
+our $VERSION = '0.25';
 
 sub new {
     my ($class, %arg) = @_;
@@ -238,7 +238,7 @@
         next unless $id;
         ++$id unless $context == $id % 3;
         ++$id unless $context == $id % 3;
-        {
+        do {
             lock %{$self->{submitted}};
             next if $self->job_exists($id);
             {
@@ -248,7 +248,7 @@
             }
             $self->{pending}->enqueue(pack('Na*', $id, $arg));
             $self->{submitted}{$id} = 1;
-        }
+        };
         last;
     }
     return $id;