Commit bad758f6 authored by Ian Longden's avatar Ian Longden
Browse files

check for LRGSlice too

parent 1851a3b0
......@@ -364,7 +364,8 @@ sub slice {
if(@_) {
my $sl = shift;
if(defined($sl) && (!ref($sl) || !$sl->isa('Bio::EnsEMBL::Slice'))) {
if(defined($sl) && (!ref($sl) ||
(!$sl->isa('Bio::EnsEMBL::Slice') && !$sl->isa('Bio::EnsEMBL::LRGSlice')))) {
throw('slice argument must be a Bio::EnsEMBL::Slice');
}
......@@ -516,7 +517,9 @@ sub transfer {
my $slice = shift;
if(!$slice || !ref($slice) || !$slice->isa('Bio::EnsEMBL::Slice')) {
throw('Slice argument is required');
if( !$slice->isa('Bio::EnsEMBL::LRGSlice')){
throw('Slice argument is required');
}
}
#make a shallow copy of the feature to be transfered
......
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