From 5c5f86ed8b4ce801fb5950003f105761d96d8295 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 20 Jun 2011 20:24:27 +0200 Subject: [PATCH] create fresh gearman client for each gc call --- lib/APKPM/Gearman/Client.pm | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/lib/APKPM/Gearman/Client.pm b/lib/APKPM/Gearman/Client.pm index 0a229c5..2ab1b79 100644 --- a/lib/APKPM/Gearman/Client.pm +++ b/lib/APKPM/Gearman/Client.pm @@ -8,17 +8,13 @@ use Data::Dump qw(dump); requires 'server'; -has gc => ( - is => 'ro', - lazy => 1, # wait for server to have value - default => sub { - my $self = shift; - my $gc = Gearman::Client->new; - $gc->job_servers( $self->server || 'localhost:4730' ); - warn "# Gearman server: ", dump( $gc->job_servers ); - $gc; - }, -); +sub gc { + my $self = shift; + my $gc = Gearman::Client->new; + $gc->job_servers( $self->server || 'localhost:4730' ); + warn "# Gearman server: ", dump( $gc->job_servers ); + return $gc; +} sub do_background { my ( $self, $func, $args ) = @_; -- 2.20.1