r74409 - in /trunk/libnet-stomp-perl: CHANGES META.yml Makefile.PL debian/changelog debian/control lib/Net/Stomp.pm
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat May 14 14:03:58 UTC 2011
Author: ansgar
Date: Sat May 14 14:03:30 2011
New Revision: 74409
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74409
Log:
* New upstream release.
* Bump Standards-Version to 3.9.2 (no changes).
Modified:
trunk/libnet-stomp-perl/CHANGES
trunk/libnet-stomp-perl/META.yml
trunk/libnet-stomp-perl/Makefile.PL
trunk/libnet-stomp-perl/debian/changelog
trunk/libnet-stomp-perl/debian/control
trunk/libnet-stomp-perl/lib/Net/Stomp.pm
Modified: trunk/libnet-stomp-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/CHANGES?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/CHANGES (original)
+++ trunk/libnet-stomp-perl/CHANGES Sat May 14 14:03:30 2011
@@ -1,6 +1,12 @@
Revision history for Perl module Net::Stomp:
-0.40 Fri Feb 4 09:16:39 GMT 2011
+0.40 Thu Apr 28 14:56:49 GMT 2011
+ - Various small warning/error message fies:
+ - Remove undef warning from substr (Squeeks)
+ - rt#67160: IO::Socket::INET/SSL Error Variables (Stephen Fralich)
+ - rt#65979: Fix bug in failover hosts (vigith maurice)
+
+0.41 Fri Feb 4 09:16:39 GMT 2011
- Fix silly bug in _read_body (reported by Zulf Ahmed)
- Remove uninitialized value in numeric gt warning (reported by Dave Krieger)
Modified: trunk/libnet-stomp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/META.yml?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/META.yml (original)
+++ trunk/libnet-stomp-perl/META.yml Sat May 14 14:03:30 2011
@@ -1,7 +1,7 @@
---
abstract: 'A Streaming Text Orientated Messaging Protocol Client'
author:
- - "Leon Brocard <acme at astray.com>,\nThom May <thom.may at betfair.com>,\nAsh Berlin <ash_github at firemirror.com>,\nMichael S. Fischer <michael at dynamine.net>"
+ - "Leon Brocard <acme at astray.com>,\nThom May <thom.may at betfair.com>,\nAsh Berlin <ash_github at firemirror.com>,\nMichael S. Fischer <michael at dynamine.net>\nVigith Maurice <vigith at yahoo-inc.com>"
configure_requires:
Module::Build: 0.36
generated_by: 'Module::Build version 0.3603'
@@ -13,7 +13,7 @@
provides:
Net::Stomp:
file: lib/Net/Stomp.pm
- version: 0.40
+ version: 0.41
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.40
+version: 0.41
Modified: trunk/libnet-stomp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/Makefile.PL?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/Makefile.PL (original)
+++ trunk/libnet-stomp-perl/Makefile.PL Sat May 14 14:03:30 2011
@@ -2,15 +2,15 @@
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'PL_FILES' => {},
- 'INSTALLDIRS' => 'site',
'NAME' => 'Net::Stomp',
- 'EXE_FILES' => [],
'VERSION_FROM' => 'lib/Net/Stomp.pm',
'PREREQ_PM' => {
+ 'Class::Accessor::Fast' => '0',
'IO::Select' => '0',
- 'IO::Socket::INET' => '0',
- 'Class::Accessor::Fast' => '0'
- }
+ 'IO::Socket::INET' => '0'
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
Modified: trunk/libnet-stomp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/changelog?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/changelog (original)
+++ trunk/libnet-stomp-perl/debian/changelog Sat May 14 14:03:30 2011
@@ -1,3 +1,10 @@
+libnet-stomp-perl (0.41-1) unstable; urgency=low
+
+ * New upstream release.
+ * Bump Standards-Version to 3.9.2 (no changes).
+
+ -- Ansgar Burchardt <ansgar at debian.org> Sat, 14 May 2011 16:02:55 +0200
+
libnet-stomp-perl (0.40-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libnet-stomp-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/control?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/control (original)
+++ trunk/libnet-stomp-perl/debian/control Sat May 14 14:03:30 2011
@@ -8,7 +8,7 @@
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
Sebastien Aperghis-Tramoni <sebastien at aperghis.net>,
Ansgar Burchardt <ansgar at debian.org>
-Standards-Version: 3.9.1
+Standards-Version: 3.9.2
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-stomp-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnet-stomp-perl/
Homepage: http://search.cpan.org/dist/Net-Stomp/
Modified: trunk/libnet-stomp-perl/lib/Net/Stomp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/lib/Net/Stomp.pm?rev=74409&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/lib/Net/Stomp.pm (original)
+++ trunk/libnet-stomp-perl/lib/Net/Stomp.pm Sat May 14 14:03:30 2011
@@ -6,7 +6,7 @@
use Net::Stomp::Frame;
use Carp;
use base 'Class::Accessor::Fast';
-our $VERSION = '0.40';
+our $VERSION = '0.41';
__PACKAGE__->mk_accessors( qw(
_cur_host failover hostname hosts port select serial session_id socket ssl
@@ -37,10 +37,15 @@
unless $uris;
foreach my $host (split(/,/,$uris)) {
- my ($hostname, $port) = ($host =~ m{^\w+://([a-zA-Z0-9\-./]+):([0-9]+)$})
- || confess "Unable to parse failover component: '$host'";
+ $host =~ m{^\w+://([a-zA-Z0-9\-./]+):([0-9]+)$} || confess "Unable to parse failover component: '$host'";
+ my ($hostname, $port) = ($1, $2);
+
push(@hosts, {hostname => $hostname, port => $port});
}
+ } elsif ($self->hosts) {
+ ## @hosts is used inside the while loop later to decide whether we have
+ ## cycled through all setup hosts.
+ @hosts = @{$self->hosts};
}
$self->hosts(@hosts);
@@ -92,7 +97,7 @@
$socket = IO::Socket::INET->new(%sockopts);
binmode($socket) if $socket;
}
- die "Error connecting to " . $self->hostname . ':' . $self->port . ": $!"
+ die "Error connecting to " . $self->hostname . ':' . $self->port . ": $@"
unless $socket;
$self->select->remove($self->socket) if $self->socket;
@@ -301,7 +306,7 @@
my $body = substr($self->{_framebuf},
0,
$h->{'content-length'},
- undef );
+ '' );
# Trim the trailer off the frame.
$self->{_framebuf} =~ s/^.*?\000\n*//s;
@@ -627,6 +632,7 @@
Thom May <thom.may at betfair.com>,
Ash Berlin <ash_github at firemirror.com>,
Michael S. Fischer <michael at dynamine.net>
+Vigith Maurice <vigith at yahoo-inc.com>
=head1 COPYRIGHT
More information about the Pkg-perl-cvs-commits
mailing list