diff options
author | bustico | 2008-01-11 09:59:23 +0000 |
---|---|---|
committer | bustico | 2008-01-11 09:59:23 +0000 |
commit | a069d727264511de2fe6cf4a97d1b0358da0a605 (patch) | |
tree | 71c383bc19246cbd31013b0d16e3804f1074ee73 | |
parent | 1f26ff323a31d69448a82b4fdfc0512231567ae2 (diff) | |
download | ivy-perl-a069d727264511de2fe6cf4a97d1b0358da0a605.zip ivy-perl-a069d727264511de2fe6cf4a97d1b0358da0a605.tar.gz ivy-perl-a069d727264511de2fe6cf4a97d1b0358da0a605.tar.bz2 ivy-perl-a069d727264511de2fe6cf4a97d1b0358da0a605.tar.xz |
restrict lexical scope of use bytes pragma just to where it is needed
-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 |