diff options
-rw-r--r-- | Ivy.pm | 8 | ||||
-rw-r--r-- | debian/changelog | 7 |
2 files changed, 12 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". diff --git a/debian/changelog b/debian/changelog index ccb3a0a..7b015ed 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +ivy-perl (4.25-3) unstable; urgency=low + + * New upstream version: * restrict lexical scope of use bytes pragma + just to where it is needed + + -- Alexandre Bustico <bustico@cena.fr> Fri, 11 Jan 2008 10:55:57 +0200 + ivy-perl (4.25-2) unstable; urgency=low * New upstream version: * verify validity of socket arg in low level |