summaryrefslogtreecommitdiff
path: root/Ivy.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Ivy.pm')
-rw-r--r--Ivy.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/Ivy.pm b/Ivy.pm
index 735d632..4bf8663 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -17,8 +17,6 @@
package Ivy ;
-require 5.005 ;
-
use Sys::Hostname;
use IO::Socket;
use strict ;
@@ -592,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", $VERSION, $connSock->sockport());
foreach my $netBroadcastAddr (@{$self->[broadcastBuses]}) {
send ($self->[supSock], $bonjourMsg, 0, $netBroadcastAddr) or
@@ -945,9 +943,9 @@ sub _getBonjour ($)
return;
}
- if ($version != VERSION) {
+ if ($version != $VERSION) {
warn "Attention : Ivy::_getBonjour VERSION: demande de connexion de ".
- "$peerName\n version courrante : " . VERSION . ", recue : $version\n" ;
+ "$peerName\n version courrante : " . $VERSION . ", recue : $version\n" ;
return;
}