check for LRGSlice too

0b5d01c1 · Ian Longden · 4c58101e · 0b5d01c1
Commit 0b5d01c1 authored Nov 04, 2009 by Ian Longden
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

modules/Bio/EnsEMBL/Feature.pm modules/Bio/EnsEMBL/Feature.pm +2 -1

No files found.
--- a/modules/Bio/EnsEMBL/Feature.pm
+++ b/modules/Bio/EnsEMBL/Feature.pm
@@ -115,7 +115,8 @@ sub new {
      rearrange(['START','END','STRAND','SLICE','ANALYSIS', 'SEQNAME',
 		 'DBID', 'ADAPTOR'], @_);   
  if($slice) {
-    if(!ref($slice) || !$slice->isa('Bio::EnsEMBL::Slice')) {
+    if(defined($slice) && (!ref($slice) ||
+			(!$slice->isa('Bio::EnsEMBL::Slice')  && !$slice->isa('Bio::EnsEMBL::LRGSlice')))){
      throw('-SLICE argument must be a Bio::EnsEMBL::Slice not '.$slice);
    }
  }