| … | |
… | |
| 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 | |
