From ebf4ca5f905eef7a30e199cb97005e95133b1e5c Mon Sep 17 00:00:00 2001
From: bustico
Date: Fri, 14 Dec 2007 10:51:12 +0000
Subject: fix binmode param

---
 Ivy.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Ivy.pm')

diff --git a/Ivy.pm b/Ivy.pm
index ac58aba..4d5b9e4 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -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);
     }
   }
 
-- 
cgit v1.1