From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 21 Nov 2006 21:51:49 +0000 (+0000)
Subject: refactored redunant perl2JSON call
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9b6bf85431ad81c2e7760a904969b72a0325c7b9;p=opensrf%2Fbjwebb.git

refactored redunant perl2JSON call


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@795 9efc2488-bf62-4759-914b-345cdb29e865
---

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 );