projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
316a74d
)
fix outgoing peerhost issues
author
Dirk Koopman
<djk@tobit.co.uk>
Sun, 15 Sep 2013 10:40:09 +0000
(11:40 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sun, 15 Sep 2013 10:40:09 +0000
(11:40 +0100)
perl/Msg.pm
patch
|
blob
|
history
perl/Version.pm
patch
|
blob
|
history
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index b2ee9b2326690a4abc376196d91218a55333e73f..fadab099783cd36d42463cbb932910a515e399c1 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-140,6
+140,7
@@
sub _on_connect
$sock->on(close => sub {$conn->disconnect;});
$sock->timeout(0);
$sock->start;
+ $conn->{peerhost} = eval { $handle->peerhost; };
dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
if ($conn->{on_connect}) {
&{$conn->{on_connect}}($conn);
diff --git
a/perl/Version.pm
b/perl/Version.pm
index 6db53a72bf50737e3f09bdd2a499815a86f2d0eb..23560ca76189898fe752dd42bbd5105baf408b22 100644
(file)
--- a/
perl/Version.pm
+++ b/
perl/Version.pm
@@
-10,7
+10,7
@@
package main;
use vars qw($version $build $gitversion);
$version = '1.57';
-$build = '
3
';
-$gitversion = '
16c9326
';
+$build = '
4
';
+$gitversion = '
316a74d
';
1;