X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FUser.pm;h=2bbfe5b751762c812ae7aa6bb1eabdd429eb8cee;hb=1fae727d9da6945d99ccdcb79436eb579b47a3b7;hp=adb2bbd17f25e5395aed9bffd189d3b5ca7d3e86;hpb=febdc9bd8f6cd065d217ba089fab4361e9980f35;p=spider.git

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index adb2bbd1..2bbfe5b7 100644
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -66,7 +66,9 @@ sub get
 {
 	my $call = shift;
 	$call = shift if ref $call;
-	return $list{uc $call};
+	my $ref = $list{uc $call};
+	dbg('routerr', "Failed to get User $call" ) unless $ref;
+	return $ref;
 }
 
 sub addparent