LP#1824184: Change potentially slow log statements to subroutines

[opensrf-equinox.git] / src / perl / lib / OpenSRF / Transport.pm

diff --git a/src/perl/lib/OpenSRF/Transport.pm b/src/perl/lib/OpenSRF/Transport.pm
index c295acd..5aeff4d 100644 (file)
--- a/src/perl/lib/OpenSRF/Transport.pm
+++ b/src/perl/lib/OpenSRF/Transport.pm
@@ -176,7 +176,7 @@ sub handler {
                } else { 
 
                        if( ! $msg->handler( $app_session ) ) { return 0; } 
-                       $logger->debug(sprintf("Response processing duration: %.3f", (time() - $start_time)));
+                       $logger->debug(sub{return sprintf("Response processing duration: %.3f", (time() - $start_time)) });
 
                }
        }