diff options
author | damiano | 2000-02-02 14:25:57 +0000 |
---|---|---|
committer | damiano | 2000-02-02 14:25:57 +0000 |
commit | 98f0956efe1746071f4772e476aca5c4558c57de (patch) | |
tree | b86368f1e4c508fff226c87f19c9599507438e42 /Ivy.pm | |
parent | 61edb658c7b443041fb05a3c3e4bf80057c99c37 (diff) | |
download | ivy-perl-98f0956efe1746071f4772e476aca5c4558c57de.zip ivy-perl-98f0956efe1746071f4772e476aca5c4558c57de.tar.gz ivy-perl-98f0956efe1746071f4772e476aca5c4558c57de.tar.bz2 ivy-perl-98f0956efe1746071f4772e476aca5c4558c57de.tar.xz |
Add test file to get rid of typos
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -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; } |