getting rid of some spurious warnings

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 5405815..f33f5c2 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -128,14 +128,14 @@ sub handler {
 
                        $in_request++;
 
-                       $log->debug( "Executing coderef for {$method_name -> ".join(', ', @args)."}", INTERNAL );
+                       $log->debug( "Executing coderef for {$method_name}", INTERNAL );
 
                        my $resp;
                        try {
                                my $start = time();
                                $resp = $coderef->run( $appreq, @args); 
                                my $time = sprintf '%.3f', time() - $start;
-                               $log->debug( "Method duration for {$method_name -> ".join(', ', @args)."}:  ". $time, DEBUG );
+                               $log->debug( "Method duration for {$method_name}:  ". $time, INFO );
                                if( defined( $resp ) ) {
                                        $appreq->respond_complete( $resp );
                                } else {