LP#1824184: Change potentially slow log statements to subroutines

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

diff --git a/src/perl/lib/OpenSRF/EX.pm b/src/perl/lib/OpenSRF/EX.pm
index bf86bda..c1ae701 100644 (file)
--- a/src/perl/lib/OpenSRF/EX.pm
+++ b/src/perl/lib/OpenSRF/EX.pm
@@ -60,10 +60,10 @@ sub throw() {
                                $self->class->isa( "OpenSRF::EX::NOTICE" ) ||
                                $self->class->isa( "OpenSRF::EX::WARN" ) ) {
 
-               $log->debug( $self->stringify(), $log->DEBUG );
+               $log->debug(sub{return $self->stringify() }, $log->DEBUG );
        }
 
-       else{ $log->debug( $self->stringify(), $log->ERROR ); }
+       else{ $log->debug(sub{return $self->stringify() }, $log->ERROR ); }
        
        $self->SUPER::throw;
 }