dump body

diff --git a/lib/CloudStore/Gearman.pm b/lib/CloudStore/Gearman.pm
index 031c9eb..1eb38cd 100644 (file)
--- a/lib/CloudStore/Gearman.pm
+++ b/lib/CloudStore/Gearman.pm
@@ -16,7 +16,7 @@ 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),$/ if $ENV{DEBUG};