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

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index 4e3e59cf..2bbfe5b7 100644
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -13,19 +13,20 @@ use Route;
 
 use strict;
 
-use vars qw(%list %valid @ISA $max);
+use vars qw(%list %valid @ISA $max $filterdef);
 @ISA = qw(Route);
 
 %valid = (
 		  parent => '0,Parent Calls,parray',
 );
 
+$filterdef = $Route::filterdef;
 %list = ();
 $max = 0;
 
 sub count
 {
-	my $n = scalar %list;
+	my $n = scalar(keys %list);
 	$max = $n if $n > $max;
 	return $n;
 }
@@ -57,15 +58,17 @@ sub del
 	my $pref = shift;
 	my $ref = $self->delparent($pref->{call});
 	return () if @$ref;
-	delete $list{$self->{call}};
-	return ($ref);
+	my @out = delete $list{$self->{call}};
+	return @out;
 }
 
 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