Mike, when adding the length, actually add the length, not the string
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 3 Aug 2010 02:47:00 +0000 (02:47 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 3 Aug 2010 02:47:00 +0000 (02:47 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1987 9efc2488-bf62-4759-914b-345cdb29e865

src/perl/lib/OpenSRF/AppSession.pm

index d450159..1bcfa5c 100644 (file)
@@ -991,7 +991,7 @@ sub respond {
 
     if ($self->{max_chunk_count} > 0 or $self->{max_chunk_size} > 0) { # we are chunking, and we need to test the size or count
 
 
     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}++;
 
         push @{$self->{current_chunk}}, $response;  
         $self->{current_chunk_count}++;