/[Sack]/trunk/lib/Sack/Server.pm
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/lib/Sack/Server.pm

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

revision 179 by dpavlin, Sun Nov 8 12:53:15 2009 UTC revision 181 by dpavlin, Sun Nov 8 12:54:51 2009 UTC
# Line 23  warn "# cloud ",dump( @cloud ); Line 23  warn "# cloud ",dump( @cloud );
23  my $listen_port = 4444;  my $listen_port = 4444;
24    
25  my $node_path = abs_path $0;  my $node_path = abs_path $0;
26  $node_path =~ s{server.pl}{client.pl};  $node_path =~ s{Server}{Client};
27    
28  my $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => $listen_port, Reuse => 1) or die $!;  my $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => $listen_port, Reuse => 1) or die $!;
29  my $sel = IO::Select->new($lsn);  my $sel = IO::Select->new($lsn);
Legend:
Removed from v.179  
changed lines
  Added in v.181
  ViewVC Help
Powered by ViewVC 1.1.26