[Opensrf-commits] r1987 - trunk/src/perl/lib/OpenSRF (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-08-02 22:47:00 -0400 (Mon, 02 Aug 2010)
New Revision: 1987

Modified:
   trunk/src/perl/lib/OpenSRF/AppSession.pm
Log:
Mike, when adding the length, actually add the length, not the string

Modified: trunk/src/perl/lib/OpenSRF/AppSession.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/AppSession.pm	2010-07-29 19:38:21 UTC (rev 1986)
+++ trunk/src/perl/lib/OpenSRF/AppSession.pm	2010-08-03 02:47:00 UTC (rev 1987)
@@ -991,7 +991,7 @@
 
     if ($self->{max_chunk_count} > 0 or $self->{max_chunk_size} > 0) { # we are chunking, and we need to test the size or count
 
-        $self->{current_chunk_size} += OpenSRF::Utils::JSON->perl2JSON($response);
+        $self->{current_chunk_size} += length(OpenSRF::Utils::JSON->perl2JSON($response));
         push @{$self->{current_chunk}}, $response;  
         $self->{current_chunk_count}++;