create fresh gearman client for each gc call

diff --git a/lib/APKPM/Gearman/Client.pm b/lib/APKPM/Gearman/Client.pm
index 0a229c5..2ab1b79 100644 (file)
--- 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 ) = @_;