oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

weaken all session refs

Browse source
This commit is contained in:
Doug Bell 2010-05-31 10:18:45 -05:00
parent 387942e68d
commit cc87552a22
20 changed files with 90 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/User.pm
View file

@ -26,6 +26,7 @@ use WebGUI::Shop::AddressBook;
use JSON;
use WebGUI::Exception;
use WebGUI::ProfileField;
use Scalar::Util qw( weaken );
=head1 NAME
@ -1077,6 +1078,7 @@ sub new {
my $self = $cache->get || {};
bless $self, $class;
$self->{_session} = $session;
weaken( $self->{_session} );
unless ($self->{_userId} && $self->{_user}{username}) {
my %user;
tie %user, 'Tie::CPHash';