comparison Lib/IMPL/Security/Context.pm @ 173:aaab45153411

minor bugfixes
author sourcer
date Wed, 14 Sep 2011 18:59:01 +0400
parents 4267a2ac3d46
children d1676be8afcc
comparison
equal deleted inserted replaced
172:068acfe903c3 173:aaab45153411
65 } 65 }
66 } 66 }
67 67
68 sub nobody { 68 sub nobody {
69 my ($self) = @_; 69 my ($self) = @_;
70 $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody; 70 $nobody = $self->new(principal => IMPL::Security::Principal->nobody) unless $nobody;
71 $nobody; 71 $nobody;
72 } 72 }
73 73
74 sub current { 74 sub current {
75 my ($self) = @_; 75 my ($self) = @_;