| Subject: | bug in example code |
| Date: | Thu, 15 Jan 2009 17:21:00 -0500 |
| To: | bug-POE-Wheel-UDP [...] rt.cpan.org. |
| From: | Andrew Feren <acferen [...] yahoo.com> |
http://search.cpan.org/dist/POE-Wheel-UDP/lib/POE/Wheel/UDP.pm
input => sub {
my ($wheel_id, $input) = @_[ARG0, ARG1];
print "Incoming datagram from $input->{addr}:$input->{port}: '$input->{payload}'\n";
},
Should have ARG0 and ARG1 reversed
input => sub {
my ($wheel_id, $input) = @_[ARG1, ARG0];
print "Incoming datagram from $input->{addr}:$input->{port}: '$input->{payload}'\n";
},