r60189 - in /trunk/libnet-stomp-perl: CHANGES META.yml debian/changelog debian/control debian/rules lib/Net/Stomp.pm

Sat Jul 10 12:31:52 UTC 2010

Author: ansgar-guest
Date: Sat Jul 10 12:31:41 2010
New Revision: 60189

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60189
Log:
* New upstream release.
* debian/rules: Fix sed command to insert correct hashbang into examples.
* Bump Standards-Version to 3.9.0 (no changes).

Modified:
    trunk/libnet-stomp-perl/CHANGES
    trunk/libnet-stomp-perl/META.yml
    trunk/libnet-stomp-perl/debian/changelog
    trunk/libnet-stomp-perl/debian/control
    trunk/libnet-stomp-perl/debian/rules
    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=60189&op=diff
==============================================================================

--- trunk/libnet-stomp-perl/CHANGES (original)
+++ trunk/libnet-stomp-perl/CHANGES Sat Jul 10 12:31:41 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: trunk/libnet-stomp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/META.yml?rev=60189&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/META.yml (original)
+++ trunk/libnet-stomp-perl/META.yml Sat Jul 10 12:31:41 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: trunk/libnet-stomp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/changelog?rev=60189&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/changelog (original)
+++ trunk/libnet-stomp-perl/debian/changelog Sat Jul 10 12:31:41 2010
@@ -1,3 +1,11 @@
+libnet-stomp-perl (0.37-1) unstable; urgency=low
+
+  * New upstream release.
+  * debian/rules: Fix sed command to insert correct hashbang into examples.
+  * Bump Standards-Version to 3.9.0 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sat, 10 Jul 2010 21:31:30 +0900
+
 libnet-stomp-perl (0.36-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=60189&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/control (original)
+++ trunk/libnet-stomp-perl/debian/control Sat Jul 10 12:31:41 2010
@@ -8,7 +8,7 @@
 Uploaders: Krzysztof KrzyÅ¼aniak (eloy) <eloy at debian.org>,
  Sebastien Aperghis-Tramoni <sebastien at aperghis.net>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.0
 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/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/rules?rev=60189&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/rules (original)
+++ trunk/libnet-stomp-perl/debian/rules Sat Jul 10 12:31:41 2010
@@ -8,4 +8,4 @@
 
 override_dh_installexamples:
 	dh_installexamples
-	sed -i '1c "#! /usr/bin/perl"' $(TMP)/usr/share/doc/$(PACKAGE)/examples/*.pl
+	sed -i '1c #! /usr/bin/perl' $(TMP)/usr/share/doc/$(PACKAGE)/examples/*.pl

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=60189&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/lib/Net/Stomp.pm (original)
+++ trunk/libnet-stomp-perl/lib/Net/Stomp.pm Sat Jul 10 12:31:41 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
 


