projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix disconnect from peer
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 352904102e32cf35d183ffcd1395e42f5c9c87a0..60906c5964df83b0e547cd28628caaafefdf149c 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-61,11
+61,12
@@
sub set_error
$conn->{eproc} = $callback;
}
$conn->{eproc} = $callback;
}
-sub set_eof
+sub set_
on_
eof
{
my $conn = shift;
my $callback = shift;
{
my $conn = shift;
my $callback = shift;
- $conn->{sock}->on_eof(sub {$callback});
+ $conn->{sock}->on_eof($callback);
+ $conn->{sock}->on_error($callback);
}
sub set_rproc
}
sub set_rproc