[libanyevent-handle-udp-perl] 18/60: Make sure buffers is predefined

[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 976844372f5efd6d96b684fe59fede823615f2db
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Sun Apr 29 17:00:50 2012 +0200

    Make sure buffers is predefined
---
 Changes                    |    1 +
 lib/AnyEvent/Handle/UDP.pm |    3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 9b02002..23bea1a 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for AnyEvent-Handle-UDP
 
 {{$NEXT}}
           Make push_send accept an address array too
+          Make sure buffers is predefined
 
 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 8b60d1d..28889c1 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -40,6 +40,7 @@ sub BUILD {
 	my $self = shift;
 	$self->bind_to($self->_bind_addr) if $self->_has_bind_addr;
 	$self->connect_to($self->_connect_addr) if $self->_has_connect_addr;
+	$self->{buffers} = [];
 	$self->_drained;
 	return;
 }
@@ -134,7 +135,7 @@ sub _on_addr {
 			my ($domain, $type, $proto, $sockaddr) = @{$target};
 			my $full = join ':', $domain, $type, $proto;
 			if ($self->_has_full) {
-				return redo if $self->_full ne $full;
+				redo if $self->_full ne $full;
 			}
 			else {
 				socket $self->fh, $domain, $type, $proto or redo;

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