… | |
… | |
1138 | if ($persistent && $KA_CACHE{$ka_key}) { |
1138 | if ($persistent && $KA_CACHE{$ka_key}) { |
1139 | $was_persistent = 1; |
1139 | $was_persistent = 1; |
1140 | |
1140 | |
1141 | $state{handle} = ka_fetch $ka_key; |
1141 | $state{handle} = ka_fetch $ka_key; |
1142 | $state{handle}->destroyed |
1142 | $state{handle}->destroyed |
1143 | and die "got a destructed habndle. pah\n";#d# |
1143 | and die "got a destructed handle. pah\n";#d# |
1144 | $prepare_handle->(); |
1144 | $prepare_handle->(); |
1145 | $state{handle}->destroyed |
1145 | $state{handle}->destroyed |
1146 | and die "got a destructed habndle. pa2\n";#d# |
1146 | and die "got a destructed handle. pa2\n";#d# |
1147 | $handle_actual_request->(); |
1147 | $handle_actual_request->(); |
1148 | $state{handle}->destroyed |
1148 | $state{handle}->destroyed |
1149 | and die "got a destructed habndle. pa3\n";#d# |
1149 | and die "got a destructed handle. pa3\n";#d# |
1150 | |
1150 | |
1151 | } else { |
1151 | } else { |
1152 | my $tcp_connect = $arg{tcp_connect} |
1152 | my $tcp_connect = $arg{tcp_connect} |
1153 | || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; |
1153 | || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; |
1154 | |
1154 | |