diff options
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -41,7 +41,6 @@ use IO::Socket::Multicast; use vars qw($VERSION); use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); -use bytes; # to compute the VERSION from the CVS tag (or if no tag, as the cvs file revision) my $TAG= q$Name: $; @@ -1367,10 +1366,13 @@ sub _getBonjour ($) # autre reseau, si ca embete qqun, qu'il me le dise push (@ivyBusAddrList, pack ("CCCC", 127,255,255,255)); push (@ivyBusAddrList, (gethostbyname (hostname()))[4]); - foreach my $ivyBusAddr (@ivyBusAddrList) { + + use bytes; + foreach my $ivyBusAddr (@ivyBusAddrList) { $addrInIvyBus = 1 unless (grep ($_ != 0, unpack ("C4", - ($addr & $ivyBusAddr) ^ $addr))); + ($addr & $ivyBusAddr) ^ $addr))); } + no bytes; if ($addrInIvyBus == 0) { carp "Warning[$appName]: Hello message from $peerName ignored,\n". |