$VERSION and IVY PROTOCOL VERSION may differ.

Add a const IVY_PROTOCOL_VERSION and set it to 3

1 files changed, 4 insertions, 4 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 4bf8663..29a1867 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -146,7 +146,7 @@ use constant DIRECT_MSG	 => 7;
 use constant DIE	 => 8;
 use constant PING	 => 9;
 use constant PONG	 => 10;
-
+use constant IVY_PROTOCOLE_VERSION => 3;
 
 use constant AFTER	=> 0;
 use constant REPEAT	=> 1;
@@ -590,7 +590,7 @@ sub start ($)
 
     
     # et on envoie envoie le bonjour : "no de version no de port"
-    my $bonjourMsg = sprintf ("%d %d\n", $VERSION, $connSock->sockport());
+    my $bonjourMsg = sprintf ("%d %d\n", IVY_PROTOCOLE_VERSION, $connSock->sockport());
     
     foreach my $netBroadcastAddr (@{$self->[broadcastBuses]}) {
 	send ($self->[supSock], $bonjourMsg, 0, $netBroadcastAddr) or 
@@ -943,9 +943,9 @@ sub _getBonjour ($)
     return;
   }
 
-  if ($version != $VERSION) {
+  if ($version != IVY_PROTOCOLE_VERSION) {
     warn "Attention : Ivy::_getBonjour VERSION: demande de connexion de ".
-      "$peerName\n version courrante : " . $VERSION . ", recue : $version\n" ;
+      "$peerName\n version courrante : " . IVY_PROTOCOLE_VERSION . ", recue : $version\n" ;
     return;
   }