3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.11 2002/12/04 08:54:08 jonen |
7 |
|
# + untested bugfix: undef($object) after transform to hash at getObjectAsHash |
8 |
|
# |
9 |
# Revision 1.10 2002/12/03 15:53:23 joko |
# Revision 1.10 2002/12/03 15:53:23 joko |
10 |
# + small bugfix regarding object hierarchy |
# + small bugfix regarding object hierarchy |
11 |
# |
# |
485 |
my $obj = $self->getObject($oid); |
my $obj = $self->getObject($oid); |
486 |
my $deref = var_deref($obj); |
my $deref = var_deref($obj); |
487 |
var2utf8($deref) if ($options->{utf8}); |
var2utf8($deref) if ($options->{utf8}); |
488 |
|
undef($obj) if($options->{destroy}); |
489 |
return $deref; |
return $deref; |
490 |
} |
} |
491 |
|
|