--- a/Lib/IMPL/Security/Role.pm	Wed Apr 28 17:50:55 2010 +0400
+++ b/Lib/IMPL/Security/Role.pm	Thu Apr 29 01:31:27 2010 +0400
@@ -20,6 +20,7 @@
 	my ($this,@roles) = @_;	
 	
 	return 1 unless $this->_FilterRoles( @roles );
+	return 0;
 }
 
 sub _FilterRoles {
@@ -27,7 +28,7 @@
 	
 	@roles = grep not (ref $_ ? $this == $_ : $this->roleName eq $_), @roles;
 	
-	@roles = $_->_FilterRoles(@roles) or return foreach @{$this->parentRoles} ;
+	@roles = $_->_FilterRoles(@roles) or return foreach $this->parentRoles ;
 	
 	return @roles;
 }