[libanyevent-handle-udp-perl] 17/60: Convert address array into packed sockaddr

[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 eb5075171655053ead14a3b25709f6c2879ed493
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Fri Apr 27 19:07:04 2012 +0200

    Convert address array into packed sockaddr
---
 Changes                    |    1 +
 lib/AnyEvent/Handle/UDP.pm |    1 +
 2 files changed, 2 insertions(+)

diff --git a/Changes b/Changes
index 60f7992..9b02002 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for AnyEvent-Handle-UDP
 
 {{$NEXT}}
+          Make push_send accept an address array too
 
 0.033     2012-02-19 17:35:10 Europe/Amsterdam
           Make push_send optionally take a $cv, and only return one if called in non-void context
diff --git a/lib/AnyEvent/Handle/UDP.pm b/lib/AnyEvent/Handle/UDP.pm
index b01bed5..8b60d1d 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -175,6 +175,7 @@ my %non_fatal = map { ( $_ => 1 ) } EAGAIN, EWOULDBLOCK, EINTR;
 
 sub push_send {
 	my ($self, $message, $to, $cv) = @_;
+	$to = AnyEvent::Socket::pack_sockaddr($to->[0], AnyEvent::Socket::parse_address($to->[1])) if ref $to;
 	$cv ||= defined wantarray ? AnyEvent::CondVar->new : undef;
 	if ($self->autoflush and ! @{ $self->{buffers} }) {
 		my $ret = $self->_send($message, $to, $cv);

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