| … | |
… | |
| 607 | or do { |
607 | or do { |
| 608 | my $err = "$!"; |
608 | my $err = "$!"; |
| 609 | %state = (); |
609 | %state = (); |
| 610 | return $cb->(undef, { @pseudo, Status => 599, Reason => $err }); |
610 | return $cb->(undef, { @pseudo, Status => 599, Reason => $err }); |
| 611 | }; |
611 | }; |
| 612 | |
|
|
| 613 | pop; # free memory, save a tree |
|
|
| 614 | |
612 | |
| 615 | return unless delete $state{connect_guard}; |
613 | return unless delete $state{connect_guard}; |
| 616 | |
614 | |
| 617 | # get handle |
615 | # get handle |
| 618 | $state{handle} = new AnyEvent::Handle |
616 | $state{handle} = new AnyEvent::Handle |
