diff Lib/IMPL/Security.pm @ 172:068acfe903c3

corrected schema resolution mechanism
author sourcer
date Mon, 20 Jun 2011 23:42:44 +0400
parents 4267a2ac3d46
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/Security.pm	Mon Jun 06 03:30:36 2011 +0400
+++ b/Lib/IMPL/Security.pm	Mon Jun 20 23:42:44 2011 +0400
@@ -11,7 +11,7 @@
 sub AccessCheck {
 	my ($self, $object, $desiredAccess, $context) = @_;
 	
-	$context = IMPL::Security::Context->contextCurrent;
+	$context ||= IMPL::Security::Context->contextCurrent;
 	
 	$_->() or return 0 foreach @{$self->Rules};