From 9b6bf85431ad81c2e7760a904969b72a0325c7b9 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 21 Nov 2006 21:51:49 +0000
Subject: [PATCH] refactored redunant perl2JSON call

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@795 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/AppSession.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index e4435b1..0598f84 100644
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -528,13 +528,13 @@ sub send {
 		}
 
 	} 
-	$logger->debug( "AppSession sending doc: " . JSON->perl2JSON(\@doc), INTERNAL );
-
+	my $json = JSON->perl2JSON(\@doc);
+	$logger->internal("AppSession sending doc: $json");
 
 	$self->{peer_handle}->send( 
 					to     => $self->remote_id,
 				   thread => $self->session_id,
-				   body   => JSON->perl2JSON(\@doc) );
+				   body   => $json );
 
 	if( $disconnect) {
 		$self->state( DISCONNECTED );
-- 
2.11.0