Commit c686f3a1 authored by Graham McVicker's avatar Graham McVicker
Browse files

made dnadb unsettable once set

parent b0ec954c
......@@ -823,16 +823,16 @@ sub get_AssemblyExceptionFeatureAdaptor {
=cut
sub dnadb {
my ($self,$arg) = @_;
my $self = shift;
if($arg) {
if(ref $arg && (($arg->isa('Bio::EnsEMBL::Container') &&
if(@_) {
my $arg = shift;
if(ref($arg) && (($arg->isa('Bio::EnsEMBL::Container') &&
$arg->_obj == $self) || $arg == $self)) {
#we don't want to store a circular reference to our self
return;
}
#if this a container, we don't care, hang onto it
$self->{'dnadb'} = $arg;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment