Changeset 765

Timestamp:

03/09/08 03:44:49 (21 months ago)

Author:

bradfitz

Message:

on successful write, update Perlbal::Socket's alive_time, so slowly
reproxied writes don't timeout the connection and kill it. Patch
from Jonty <jonty@…>. r765

Location:

trunk

Files:

• CHANGES (modified) (1 diff)
• lib/Perlbal/Socket.pm (modified) (1 diff)

trunk/CHANGES

@@ +1 @@
+    -- on successful write, update Perlbal::Socket's alive_time, so slowly
+       reproxied writes don't timeout the connection and kill it.  Patch
+       from Jonty <jonty@last.fm>.  r765
+
     -- Perl 5.10 support.  Patch from Andy Armstrong <andy@hexten.net>.
        Disclaimer: at least the tests all pass now, but no real-world use yet.

trunk/lib/Perlbal/Socket.pm

@@ -302 +302 @@
 }
 
+### METHOD: write()
+### Overridden from Danga::Socket to update our alive time on successful writes
+### Stops sockets from being closed on long-running write operations
+sub write {
+    my $self = shift;
+
+    my $ret;
+    if ($ret = $self->SUPER::write(@_)) {
+        # Mark this socket alive so we don't time out
+        $self->{alive_time} = $Perlbal::tick_time;
+    }
+    
+    return $ret;
+}
+
 ### METHOD: close()
 ### Set our state when we get closed.