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

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index 4e3e59cf..adb2bbd1 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,8 +58,8 @@ 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