From 774614931a67ba1afe38619bc17a7d967e2c6ca7 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 3 Aug 2010 02:47:00 +0000
Subject: [PATCH] Mike, when adding the length, actually add the length, not
 the string

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1987 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/AppSession.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/lib/OpenSRF/AppSession.pm b/src/perl/lib/OpenSRF/AppSession.pm
index d450159..1bcfa5c 100644
--- a/src/perl/lib/OpenSRF/AppSession.pm
+++ b/src/perl/lib/OpenSRF/AppSession.pm
@@ -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
 
-        $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}++;
 
-- 
2.43.2