diff options
author | damiano | 2000-02-02 14:42:23 +0000 |
---|---|---|
committer | damiano | 2000-02-02 14:42:23 +0000 |
commit | 45cb0a7203c5e5e33af5aa91fe4d758e9768e86d (patch) | |
tree | 9c3a0b46e0675b239247756332389573abaec13d /Ivy.pm | |
parent | 87d56b6f6f2033d69648393de96360a95a6bd9e7 (diff) | |
download | ivy-perl-45cb0a7203c5e5e33af5aa91fe4d758e9768e86d.zip ivy-perl-45cb0a7203c5e5e33af5aa91fe4d758e9768e86d.tar.gz ivy-perl-45cb0a7203c5e5e33af5aa91fe4d758e9768e86d.tar.bz2 ivy-perl-45cb0a7203c5e5e33af5aa91fe4d758e9768e86d.tar.xz |
$VERSION and IVY PROTOCOL VERSION may differ.
Add a const IVY_PROTOCOL_VERSION and set it to 3
Diffstat (limited to 'Ivy.pm')
-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; } |