* correct a protocol bug in _sendWantedRegexp, the port number is now sended instead of 0.

---------------------------------------------------------------

1 files changed, 2 insertions, 1 deletions

diff --git a/Ivy.pm b/Ivy.pm
index a5a095d..1a0ab4c 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -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