changed debug api interface to use less CPU

[spider.git] / perl / Route / User.pm

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index 2bbfe5b751762c812ae7aa6bb1eabdd429eb8cee..d492c27bf7769050d20878c7279f9ef4f7d90512 100644 (file)
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -67,7 +67,7 @@ sub get
        my $call = shift;
        $call = shift if ref $call;
        my $ref = $list{uc $call};
-       dbg('routerr', "Failed to get User $call" ) unless $ref;
+       dbg("Failed to get User $call" ) if !$ref && isdbg('routerr');
        return $ref;
 }