Changeset 612 for trunk/lib/Perlbal/ClientProxy.pm

Timestamp:

12/05/06 10:26:21 (3 years ago)

Author:

bradfitz

Message:

-- fix a crash as reported on mailing lists, with backends not

releasing references to clientproxies when coming through
service selectors, and backends then timing out, crashing
the server.

Files:

• trunk/lib/Perlbal/ClientProxy.pm (modified) (1 diff)

trunk/lib/Perlbal/ClientProxy.pm

@@ -445 +445 @@
     print "ClientProxy::http_response_sent -- resetting state\n" if Perlbal::DEBUG >= 3;
 
+    if (my $be = $self->{backend}) {
+        $self->{backend} = undef;
+        $be->forget_client;
+    }
+
     # if we get here we're being persistent, reset our state
     $self->{backend_requested} = 0;
-    $self->{backend} = undef;
     $self->{high_priority} = 0;
     $self->{reproxy_uris} = undef;