ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/MP/Transport.pm
(Generate patch)

Comparing AnyEvent-MP/MP/Transport.pm (file contents):
Revision 1.27 by root, Sun Aug 9 00:31:40 2009 UTC vs.
Revision 1.28 by root, Sun Aug 9 16:08:16 2009 UTC

… …
37use AnyEvent::Socket (); 37use AnyEvent::Socket ();
38use AnyEvent::Handle 4.92 (); 38use AnyEvent::Handle 4.92 ();
39 39
40use base Exporter::; 40use base Exporter::;
41 41
42our $VERSION = '0.0';
43our $PROTOCOL_VERSION = 0; 42our $PROTOCOL_VERSION = 0;
44 43
45=item $listener = mp_listener $host, $port, <constructor-args>, $cb->($transport) 44=item $listener = mp_listener $host, $port, <constructor-args>, $cb->($transport)
46 45
47Creates a listener on the given host/port using 46Creates a listener on the given host/port using
… …
172 my $greeting_kv = $self->{greeting} ||= {}; 171 my $greeting_kv = $self->{greeting} ||= {};
173 172
174 $self->{local_node} = $AnyEvent::MP::Base::NODE; 173 $self->{local_node} = $AnyEvent::MP::Base::NODE;
175 174
176 $greeting_kv->{"tls"} = "1.0" if $arg{tls_ctx}; 175 $greeting_kv->{"tls"} = "1.0" if $arg{tls_ctx};
177 $greeting_kv->{provider} = "AE-$VERSION"; 176 $greeting_kv->{provider} = "AE-$AnyEvent::MP::Base::VERSION";
178 $greeting_kv->{peeraddr} = AnyEvent::Socket::format_hostport $self->{peerhost}, $self->{peerport}; 177 $greeting_kv->{peeraddr} = AnyEvent::Socket::format_hostport $self->{peerhost}, $self->{peerport};
179 $greeting_kv->{timeout} = $arg{timeout}; 178 $greeting_kv->{timeout} = $arg{timeout};
180 179
181 # send greeting 180 # send greeting
182 my $lgreeting1 = "aemp;$PROTOCOL_VERSION" 181 my $lgreeting1 = "aemp;$PROTOCOL_VERSION"

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines