| Subject: | Bugs in Net-Stomp-0.40 |
| Date: | Mon, 21 Feb 2011 11:26:36 +0530 |
| To: | bug-Net-Stomp [...] rt.cpan.org |
| From: | vigith maurice <vigith [...] gmail.com> |
**There are few bugs in Net-Stomp perl client (
http://cpansearch.perl.org/src/ASH/Net-Stomp-0.40/lib/Net/Stomp.pm).
For Eg,
1.
foreach my $host (split(/,/,$uris)) {
my ($hostname, $port) = ($host =~
m{^\w+://([a-zA-Z0-9\-./]+):([0-9]+)$})
|| confess "Unable to parse failover component: '$host'";
push(@hosts, {hostname => $hostname, port => $port});
}
$hostname will be set to 1 and $port to undef so failover never works.
2.
# Or in a more natural perl way
$stomp = Net::Stomp->new({ hosts => [
{ hostname => 'primary', port => 61616 },
{ hostname => 'secondary', port => 61616 },
] });
this never works if the first host fails to respond.
can you please point to any code repository where i can submit the patch.
Please correct me if i am wrong.
--
regards,
vigith maurice