diff options
| -rw-r--r-- | Ivy.pm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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; } |