refactored redunant perl2JSON call

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6605 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/OpenSRF/src/perlmods/OpenSRF/AppSession.pm b/OpenSRF/src/perlmods/OpenSRF/AppSession.pm
index e4435b1..0598f84 100644 (file)
--- 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 );