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

3
lib/WebGUI/Asset.pm
View file

@ -15,7 +15,7 @@ package WebGUI::Asset;
=cut
use Carp qw( croak confess );
use Scalar::Util qw( blessed );
use Scalar::Util qw( blessed weaken );
use Clone qw(clone);
use JSON;
use HTML::Packer;
@ -1826,6 +1826,7 @@ no revision date is available it will return undef.
sub new {
my ( $class, $session, $assetId, $className, $revisionDate ) = @_;
weaken( $session );
unless (defined $assetId) {
$session->errorHandler->error("Asset constructor new() requires an assetId.");