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 /Ivy.pm | |
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
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 6 |
1 files changed, 3 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); } } |