normalise peerhost on outgoing connects

This commit is contained in:
Dirk Koopman 2011-12-22 23:51:10 +00:00
parent a60f14f41c
commit 0702d383db
2 changed files with 3 additions and 3 deletions

View File

@ -141,7 +141,7 @@ sub connect {
connect => [$to_host, $to_port],
# on_connect => sub {my $h = shift; $conn->{peerhost} = $h->handle->peername;},
on_connect => sub {my $h = shift; $conn->{peerhost} = shift;},
on_eof => sub {$conn->disconnect},

View File

@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
$version = '1.56';
$subversion = '0';
$build = '6';
$gitversion = '7f629e3';
$build = '7';
$gitversion = 'a60f14f';
1;