dump body

[cloudstore.git] / lib / CloudStore / Gearman.pm

diff --git a/lib/CloudStore/Gearman.pm b/lib/CloudStore/Gearman.pm
index 9b74a55..1eb38cd 100644 (file)
--- a/lib/CloudStore/Gearman.pm
+++ b/lib/CloudStore/Gearman.pm
@@ -16,11 +16,11 @@ sub gearman_do {
        my $self = shift @_;
        my $func = shift @_;
        my $body = join(' ', @_) . "\n";
-       warn "## gearman_do $func [$body]\n";
+       warn "## gearman_do $func ",dump($body),"\n";
 
        my $result = $self->gearman->do_task( $func => $body );
-       warn "##>> ",dump($result),$/;
-       return $$result;
+       warn "##>> ",dump($result),$/ if $ENV{DEBUG};
+       return $$result if defined $result;
 }
 
 1;