--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm 2002/12/11 06:54:10 1.16 +++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm 2002/12/12 02:51:09 1.17 @@ -1,8 +1,11 @@ ############################################ # -# $Id: Tangram.pm,v 1.16 2002/12/11 06:54:10 joko Exp $ +# $Id: Tangram.pm,v 1.17 2002/12/12 02:51:09 joko Exp $ # # $Log: Tangram.pm,v $ +# Revision 1.17 2002/12/12 02:51:09 joko +# + cosmetics +# # Revision 1.16 2002/12/11 06:54:10 joko # + fix: encapsulated object-loading inside an 'eval' # @@ -503,7 +506,7 @@ # TODO: create a deep_unload method (currently _all_ objects are unloaded) # unload($oid) will only unload object, not deep object hashes - $self->{_COREHANDLE}->unload() if($options->{destroy}); + $self->{_COREHANDLE}->unload() if ($options->{destroy}); # TODO: review this #if (!$self->{COREHANDLE}) { return; }