diff options
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); } } |