projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a8cf544
)
fix IPV4 handling on non-IPV6 capable hosts
author
Dirk Koopman
<djk@tobit.co.uk>
Mon, 4 Apr 2011 21:08:02 +0000
(22:08 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Mon, 4 Apr 2011 21:08:02 +0000
(22:08 +0100)
perl/Msg.pm
patch
|
blob
|
history
perl/Version.pm
patch
|
blob
|
history
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 6805e008a770368b33e801c127fc721fc51187bf..d09527abc8938b98d1666e660c49b585620e9fed 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-224,10
+224,10
@@
sub connect {
my $sock;
if ($blocking_supported) {
- $sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0);
+ $sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0)
or return undef
;
} else {
# Create a new internet socket
-
my
$sock = $io_socket->new();
+ $sock = $io_socket->new();
return undef unless $sock;
my $proto = getprotobyname('tcp');
diff --git
a/perl/Version.pm
b/perl/Version.pm
index fa1654f255c5adb2ba837bdee6496331449875be..cdb3ad9980659d1c8c9db32c98bf5919084fd748 100644
(file)
--- a/
perl/Version.pm
+++ b/
perl/Version.pm
@@
-11,7
+11,7
@@
use vars qw($version $subversion $build $gitversion);
$version = '1.55';
$subversion = '0';
-$build = '8
8
';
-$gitversion = '
dd4a4bf
';
+$build = '8
9
';
+$gitversion = '
a8cf544
';
1;