From 0f099519070a8421c06f7ed38073055f90b85e17 Mon Sep 17 00:00:00 2001
From: imbert
Date: Mon, 20 Dec 2004 16:08:13 +0000
Subject: * correct a protocol bug in _sendWantedRegexp, the port number is now
 sended instead of 0.
 ---------------------------------------------------------------

---
 Ivy.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.1