diff options
author | imbert | 2004-12-20 16:08:13 +0000 |
---|---|---|
committer | imbert | 2004-12-20 16:08:13 +0000 |
commit | 0f099519070a8421c06f7ed38073055f90b85e17 (patch) | |
tree | ca5e7aba163f93a9be06cfd3bf5652343f7fe448 /Ivy.pm | |
parent | e0d4b60867347a9c2bf6166ee886911291854022 (diff) | |
download | ivy-perl-0f099519070a8421c06f7ed38073055f90b85e17.zip ivy-perl-0f099519070a8421c06f7ed38073055f90b85e17.tar.gz ivy-perl-0f099519070a8421c06f7ed38073055f90b85e17.tar.bz2 ivy-perl-0f099519070a8421c06f7ed38073055f90b85e17.tar.xz |
* correct a protocol bug in _sendWantedRegexp, the port number is now sended instead of 0.
---------------------------------------------------------------
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1387,9 +1387,10 @@ _EOL_ sub _sendWantedRegexp ($$) { my ($self, $appSock) = @_; + my $connSock = $self->[connSock] ; # on envoie le message "Nom appli" - send ($appSock, sprintf (MSG_FMT, APP_NAME, 0, $self->[appName]), 0) + send ($appSock, sprintf (MSG_FMT, APP_NAME, $connSock->sockport, $self->[appName]), 0) or $self->_removeFileDescriptor ($appSock) ; # on envoie les regexps |