[libanyevent-handle-udp-perl] 39/60: Hopefully really fixed for old perl+old Socket.pm

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libanyevent-handle-udp-perl.

commit 6c641f466852a42007107edc0427fec100e34158
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Wed Dec 26 19:10:06 2012 +0100

    Hopefully really fixed for old perl+old Socket.pm
---
 Changes                    |    1 +
 lib/AnyEvent/Handle/UDP.pm |    2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 283aeb3..086c1fb 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for AnyEvent-Handle-UDP
 
 {{$NEXT}}
+          Hopefully really fixed for old perl+old Socket.pm
 
 0.038     2012-12-12 23:19:16 Europe/Amsterdam
           Fix {,r,w}timeout_reset to actually work
diff --git a/lib/AnyEvent/Handle/UDP.pm b/lib/AnyEvent/Handle/UDP.pm
index 60bfd50..27bb167 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -249,7 +249,7 @@ sub _get_family {
 	my $fh = shift;
 	return if !openhandle($fh) || !getsockname $fh;
 	my $family = sockaddr_family(getsockname $fh);
-	return +($family == AF_INET) ? 4 : $family == AF_INET6 ? 6 : 0;
+	return +($family == AF_INET) ? 4 : ($family == AF_INET6) ? 6 : 0;
 }
 
 sub _on_addr {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-handle-udp-perl.git