r58674 - in /trunk/libnet-stomp-perl: CHANGES META.yml Makefile.PL debian/changelog lib/Net/Stomp.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Mon May 31 04:55:56 2010
New Revision: 58674

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58674
Log:
New upstream release.

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/lib/Net/Stomp.pm

Modified: trunk/libnet-stomp-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/CHANGES?rev=58674&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/CHANGES (original)
+++ trunk/libnet-stomp-perl/CHANGES Mon May 31 04:55:56 2010
@@ -1,4 +1,8 @@
 Revision history for Perl module Net::Stomp:
+
+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.
 
 0.35 Tue May 25 15:55:36 BST 2010
   - add some examples

Modified: trunk/libnet-stomp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/META.yml?rev=58674&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/META.yml (original)
+++ trunk/libnet-stomp-perl/META.yml Mon May 31 04:55:56 2010
@@ -4,7 +4,7 @@
   - "Leon Brocard <acme at astray.com>.\nThom May <thom.may at betfair.com>.\nAsh Berlin <ash_github at firemirror.com>."
 configure_requires:
   Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+generated_by: 'Module::Build version 0.3607'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -13,7 +13,7 @@
 provides:
   Net::Stomp:
     file: lib/Net/Stomp.pm
-    version: 0.35
+    version: 0.36
   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.35
+version: 0.36

Modified: trunk/libnet-stomp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/Makefile.PL?rev=58674&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/Makefile.PL (original)
+++ trunk/libnet-stomp-perl/Makefile.PL Mon May 31 04:55:56 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
 use ExtUtils::MakeMaker;
 WriteMakefile
 (

Modified: trunk/libnet-stomp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/changelog?rev=58674&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/changelog (original)
+++ trunk/libnet-stomp-perl/debian/changelog Mon May 31 04:55:56 2010
@@ -1,3 +1,9 @@
+libnet-stomp-perl (0.36-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Mon, 31 May 2010 13:54:25 +0900
+
 libnet-stomp-perl (0.35-1) unstable; urgency=low
 
   [ Nathan Handler ]

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=58674&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/lib/Net/Stomp.pm (original)
+++ trunk/libnet-stomp-perl/lib/Net/Stomp.pm Mon May 31 04:55:56 2010
@@ -6,7 +6,7 @@
 use Net::Stomp::Frame;
 use Carp;
 use base 'Class::Accessor::Fast';
-our $VERSION = '0.35';
+our $VERSION = '0.36';
 __PACKAGE__->mk_accessors( qw(
     _cur_host failover hostname hosts port select serial session_id socket ssl
     ssl_options subscriptions _connect_headers
@@ -39,11 +39,22 @@
     }
     $self->hosts(@hosts);
 
-    eval { $self->_get_connection};
-    while($@) {
-        sleep(5);
-        eval { $self->_get_connection};
-    }
+    my $err;
+    {
+        local $@ = 'run me!';
+        while($@) {
+            eval { $self->_get_connection };
+            last unless $@;
+            if (!@hosts || $self->_cur_host == $#hosts ) {
+                # We've cycled through all setup hosts. Die now. Can't die because
+                # $@ is localized.
+                $err = $@;
+                last;
+            }
+            sleep(5);
+        }
+    }
+    die $err if $err;
     return $self;
 }