diff options
| author | bustico | 2007-12-14 10:51:12 +0000 |
|---|---|---|
| committer | bustico | 2007-12-14 10:51:12 +0000 |
| commit | ebf4ca5f905eef7a30e199cb97005e95133b1e5c (patch) | |
| tree | c7db9e941e8311945a78a13670b8f73110174894 | |
| parent | c20b4f24cd1a7c63d2e8faaed37bd04e51362a6d (diff) | |
| download | ivy-perl-ebf4ca5f905eef7a30e199cb97005e95133b1e5c.zip ivy-perl-ebf4ca5f905eef7a30e199cb97005e95133b1e5c.tar.gz ivy-perl-ebf4ca5f905eef7a30e199cb97005e95133b1e5c.tar.bz2 ivy-perl-ebf4ca5f905eef7a30e199cb97005e95133b1e5c.tar.xz | |
fix binmode param
| -rw-r--r-- | Ivy.pm | 6 | ||||
| -rw-r--r-- | debian/changelog | 8 |
2 files changed, 11 insertions, 3 deletions
@@ -46,7 +46,7 @@ use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); # to compute the VERSION from the CVS tag (or if no tag, as the cvs file revision) my $TAG= q$Name: $; my $REVISION = q$Revision$ ; -$VERSION = '1.47' ; # for Makefile.PL +$VERSION = '1.48' ; # for Makefile.PL ($VERSION) = $TAG =~ /^\D*([\d_]+)/ ; if (defined $VERSION and $VERSION ne "_") { $VERSION =~ s/_/\./g; @@ -1379,7 +1379,7 @@ sub _getBonjour ($) return; } - binmode ($appSock, ':raw'); + binmode ($appSock); # on cree une entree pour $appSock dans la liste des regexp $nameByHandle{$appSock}=_getHostByAddr($addr) .":$peerPort"; $self->[cnnxion]{"$addr:$peerPort"} = $udpAppName; @@ -1414,7 +1414,7 @@ sub _getConnections ($) unless (fcntl($appSock, F_SETFL, $flags | O_NONBLOCK)) { carp "Can't set flags for the socket: $!\n"; return; - binmode ($appSock, ':raw'); + binmode ($appSock); } } diff --git a/debian/changelog b/debian/changelog index b257b59..a701a83 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,11 @@ +ivy-perl (4.24-1) unstable; urgency=low + + * New upstream version: binmode on socket + examine errno on write or send error + trace when removing client + + -- Alexandre Bustico <bustico@cena.fr> Fri, 14 Dec 2007 14:02:57 +0200 + ivy-perl (4.23-1) unstable; urgency=low * New upstream version: test validity of addr arg |