LP#1824184: Change potentially slow log statements to subroutines

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

diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
index dc5a1c5..cc19698 100644 (file)
--- a/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
+++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
@@ -163,7 +163,7 @@ sub initialize {
            unless ( $self->reader->connected );
 
     $self->xmpp_id("$username\@$host/$resource");
-    $logger->debug("Created XMPP connection " . $self->xmpp_id);
+    $logger->debug(sub{return "Created XMPP connection " . $self->xmpp_id });
        return $self;
 }