From 3085b78d13019acb94d72b346f4ed32802335c73 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 21 Nov 2006 21:51:49 +0000
Subject: [PATCH] refactored redunant perl2JSON call

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6605 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/OpenSRF/AppSession.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/OpenSRF/src/perlmods/OpenSRF/AppSession.pm b/OpenSRF/src/perlmods/OpenSRF/AppSession.pm
index e4435b136c..0598f84138 100644
--- a/OpenSRF/src/perlmods/OpenSRF/AppSession.pm
+++ b/OpenSRF/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