/[Sack]/trunk/bin/sack.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/sack.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by dpavlin, Tue Sep 22 21:38:31 2009 UTC revision 26 by dpavlin, Tue Sep 22 21:45:04 2009 UTC
# Line 129  sub get_node { Line 129  sub get_node {
129  sub send_sock {  sub send_sock {
130          my ( $sock, $data ) = @_;          my ( $sock, $data ) = @_;
131          my $size   = length $data;          my $size   = length $data;
132          warn ">>>> $listen ", $sock->peerhost, " $size bytes";          warn ">>>> $listen ", $sock->peerhost, " $size bytes\n";
133          print $sock "$size\n$data" || warn "can't send $size bytes to ", $sock->peerhost;          print $sock "$size\n$data" || warn "can't send $size bytes to ", $sock->peerhost;
134  }  }
135    
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26