From 667d0832254ac6c00637b0b619ecce8081407d8c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Sat, 14 Apr 2012 17:47:12 +0200
Subject: [PATCH] dump body

---
 lib/CloudStore/Gearman.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/CloudStore/Gearman.pm b/lib/CloudStore/Gearman.pm
index 031c9eb..1eb38cd 100644
--- 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};
-- 
2.20.1