r70425 - in /trunk/libnet-stomp-perl: CHANGES META.yml debian/changelog debian/source/local-options lib/Net/Stomp.pm

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Sat Mar  5 13:09:42 2011
New Revision: 70425

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

Added:
    trunk/libnet-stomp-perl/debian/source/local-options
Modified:
    trunk/libnet-stomp-perl/CHANGES
    trunk/libnet-stomp-perl/META.yml
    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=70425&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/CHANGES (original)
+++ trunk/libnet-stomp-perl/CHANGES Sat Mar  5 13:09:42 2011
@@ -1,7 +1,11 @@
 Revision history for Perl module Net::Stomp:
 
+0.40 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)
+
 0.39 Fri Jan 14 15:59:27 GMT 2011
-  - Cope with EOF during receive_frame better 
+  - Cope with EOF during receive_frame better
 
 0.38_99 Fri Aug 27 00:11:08 BST 2010
   - Reimplemented Net::Stomp::receive_frame() to properly handle STOMP frames

Modified: trunk/libnet-stomp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/META.yml?rev=70425&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/META.yml (original)
+++ trunk/libnet-stomp-perl/META.yml Sat Mar  5 13:09:42 2011
@@ -13,7 +13,7 @@
 provides:
   Net::Stomp:
     file: lib/Net/Stomp.pm
-    version: 0.39
+    version: 0.40
   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.39
+version: 0.40

Modified: trunk/libnet-stomp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/changelog?rev=70425&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/debian/changelog (original)
+++ trunk/libnet-stomp-perl/debian/changelog Sat Mar  5 13:09:42 2011
@@ -1,3 +1,9 @@
+libnet-stomp-perl (0.40-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Sat, 05 Mar 2011 14:09:05 +0100
+
 libnet-stomp-perl (0.39-1) unstable; urgency=low
 
   * New upstream release.

Added: trunk/libnet-stomp-perl/debian/source/local-options
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-stomp-perl/debian/source/local-options?rev=70425&op=file
==============================================================================
--- trunk/libnet-stomp-perl/debian/source/local-options (added)
+++ trunk/libnet-stomp-perl/debian/source/local-options Sat Mar  5 13:09:42 2011
@@ -1,0 +1,2 @@
+abort-on-upstream-changes
+unapply-patches

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=70425&op=diff
==============================================================================
--- trunk/libnet-stomp-perl/lib/Net/Stomp.pm (original)
+++ trunk/libnet-stomp-perl/lib/Net/Stomp.pm Sat Mar  5 13:09:42 2011
@@ -6,7 +6,7 @@
 use Net::Stomp::Frame;
 use Carp;
 use base 'Class::Accessor::Fast';
-our $VERSION = '0.39';
+our $VERSION = '0.40';
 
 __PACKAGE__->mk_accessors( qw(
     _cur_host failover hostname hosts port select serial session_id socket ssl
@@ -260,7 +260,7 @@
                                      $self->bufsize,
                                      length($self->{_framebuf} || ''));
 
-    if ($len > 0) {
+    if ($len && $len > 0) {
         $self->{_framebuf_changed} = 1;
     }
     else {
@@ -298,7 +298,7 @@
     if ($h->{'content-length'}) {
         if (length($self->{_framebuf}) >= $h->{'content-length'}) {
             $self->{_framebuf_changed} = 1;
-            my $body = substr($self->{framebuf},
+            my $body = substr($self->{_framebuf},
                               0,
                               $h->{'content-length'},
                               undef );