hush responses from Gearman without DEBUG=1

diff --git a/lib/CloudStore/Gearman.pm b/lib/CloudStore/Gearman.pm
index 9b74a55..6059caa 100644 (file)
--- a/lib/CloudStore/Gearman.pm
+++ b/lib/CloudStore/Gearman.pm
@@ -19,7 +19,7 @@ sub gearman_do {
        warn "## gearman_do $func [$body]\n";
 
        my $result = $self->gearman->do_task( $func => $body );
-       warn "##>> ",dump($result),$/;
+       warn "##>> ",dump($result),$/ if $ENV{DEBUG};
        return $$result;
 }