r60185 - in /branches/upstream/libnet-stomp-perl/current: CHANGES META.yml lib/Net/Stomp.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Jul 10 12:25:21 UTC 2010
Author: ansgar-guest
Date: Sat Jul 10 12:25:05 2010
New Revision: 60185
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60185
Log:
[svn-upgrade] new version libnet-stomp-perl (0.37)
Modified:
branches/upstream/libnet-stomp-perl/current/CHANGES
branches/upstream/libnet-stomp-perl/current/META.yml
branches/upstream/libnet-stomp-perl/current/lib/Net/Stomp.pm
Modified: branches/upstream/libnet-stomp-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-stomp-perl/current/CHANGES?rev=60185&op=diff
==============================================================================
--- branches/upstream/libnet-stomp-perl/current/CHANGES (original)
+++ branches/upstream/libnet-stomp-perl/current/CHANGES Sat Jul 10 12:25:05 2010
@@ -1,6 +1,12 @@
Revision history for Perl module Net::Stomp:
-0.36 Fri May 28 16:20::15 BST 2010
+0.37 Fri May 28 15:26:17 BST 2010
+ - Report a proper error if non-SSL STOMP server is not listening rather than
+ "Can't use an undefined value as a symbol reference".
+ - Fix regression in can_read: it now again defaults to waiting indefinitely.
+ (RT 58502)
+
+0.36 Fri May 28 16:20:15 BST 2010
- Fix behaviour regression on constructor - 0.35 would look at ->new time if
no server could be reached. We now die after trying each server once.
Modified: branches/upstream/libnet-stomp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-stomp-perl/current/META.yml?rev=60185&op=diff
==============================================================================
--- branches/upstream/libnet-stomp-perl/current/META.yml (original)
+++ branches/upstream/libnet-stomp-perl/current/META.yml Sat Jul 10 12:25:05 2010
@@ -13,7 +13,7 @@
provides:
Net::Stomp:
file: lib/Net/Stomp.pm
- version: 0.36
+ version: 0.37
Net::Stomp::Frame:
file: lib/Net/Stomp/Frame.pm
requires:
@@ -22,4 +22,4 @@
IO::Socket::INET: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.36
+version: 0.37
Modified: branches/upstream/libnet-stomp-perl/current/lib/Net/Stomp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-stomp-perl/current/lib/Net/Stomp.pm?rev=60185&op=diff
==============================================================================
--- branches/upstream/libnet-stomp-perl/current/lib/Net/Stomp.pm (original)
+++ branches/upstream/libnet-stomp-perl/current/lib/Net/Stomp.pm Sat Jul 10 12:25:05 2010
@@ -6,7 +6,7 @@
use Net::Stomp::Frame;
use Carp;
use base 'Class::Accessor::Fast';
-our $VERSION = '0.36';
+our $VERSION = '0.37';
__PACKAGE__->mk_accessors( qw(
_cur_host failover hostname hosts port select serial session_id socket ssl
ssl_options subscriptions _connect_headers
@@ -85,7 +85,7 @@
$socket = IO::Socket::SSL->new(%sockopts);
} else {
$socket = IO::Socket::INET->new(%sockopts);
- binmode($socket);
+ binmode($socket) if $socket;
}
die "Error connecting to " . $self->hostname . ':' . $self->port . ": $!"
unless $socket;
@@ -140,7 +140,7 @@
sub can_read {
my ( $self, $conf ) = @_;
$conf ||= {};
- my $timeout = exists $conf->{timeout} ? $conf->{timeout} : 0;
+ my $timeout = exists $conf->{timeout} ? $conf->{timeout} : undef;
return $self->select->can_read($timeout) || 0;
}
@@ -239,9 +239,6 @@
sub receive_frame {
my ($self, $conf) = @_;
-
- # default is to block until we can read something.
- $conf ||= { timeout => undef };
my $frame;
while (!$frame) {
@@ -517,6 +514,8 @@
my $can_read = $stomp->can_read;
my $can_read = $stomp->can_read({ timeout => '0.1' });
+C<undef> says block until something can be read, C<0> says to poll and return
+immediately.
=head2 ack
More information about the Pkg-perl-cvs-commits
mailing list