Fix from Martin Atkins, don't print() in the Gearman::Util code and c…

…lose sockets

when you have an error of some kind (indicating we're out of sync)

git-svn-id: http://code.sixapart.com/svn/gearman/trunk@451 011c6a6d-750f-0410-a5f6-93fdcd050bc4

CHANGES

@@ -1,3 +1,6 @@
+     -- Fix from Martin Atkins, don't print() in the Gearman::Util code and close sockets
+        when you have an error of some kind (indicating we're out of sync)
+
 1.10 (2009-10-04)
 
      -- Make workers wake up periodically for a particular server to make sure they aren't

lib/Gearman/Taskset.pm

@@ -208,7 +208,6 @@ sub add_task {
         if (! $rv) {
             shift @{ $ts->{need_handle} };  # ditch it, it failed.
             # this will resubmit it if it failed.
-            print " INITIAL SUBMIT FAILED\n";
             return $task->fail;
         }
     }

lib/Gearman/Util.pm

@@ -89,6 +89,7 @@ sub read_res_packet {
 
     my $err = sub {
         my $code = shift;
+        $sock->close() if $sock->connected;
         $$err_ref = $code if ref $err_ref;
         return undef;
     };