misc. syntax fixes.

This commit is contained in:
Matthew Wilson 2006-01-14 20:01:41 +00:00
parent 4f582e5853
commit 6009ead286
5 changed files with 26 additions and 27 deletions

View file

@ -618,7 +618,7 @@ Array reference of methods allowed to be called externally;
sub new {
my $self = {};
my $class = shift;
my $self->{_session} = shift;
$self->{_session} = shift;
$self->{authMethod} = shift;
my $userId = shift || $self->{_session}->user->userId;
$self->{user} = $self->{_session}->user;