- _getpost(ref $conn, $conn->{asyncsort}, $conn->{caller}, $conn->{peerhost}, $conn->{peerport}, $path,
- @{$conn->{asyncargs}});
+ $newconn = _getpost(ref $conn, $conn->{_assort}, $conn->{caller}, $conn->{peerhost}, $conn->{peerport}, $path, @{$conn->{_asargs}});
+ }
+ if ($newconn) {
+ # copy over any elements in $conn that are not in $newconn
+ while (my ($k,$v) = each %$conn) {
+ dbg("async: $state copying over $k -> \$newconn") if isdbg('async');
+ $newconn{$k} = $v unless exists $newconn{$k};
+ }