diff --git a/modules/Bio/EnsEMBL/RepeatMaskedSlice.pm b/modules/Bio/EnsEMBL/RepeatMaskedSlice.pm index 73b4685d9bdbf3167774284b7ffef2430fc46a29..8c32e05b2ff15b16a293ebaf3ad6d31125d8469f 100644 --- a/modules/Bio/EnsEMBL/RepeatMaskedSlice.pm +++ b/modules/Bio/EnsEMBL/RepeatMaskedSlice.pm @@ -51,6 +51,7 @@ use warnings; use Bio::EnsEMBL::Slice; use Bio::EnsEMBL::Utils::Argument qw(rearrange); +use Bio::EnsEMBL::Utils::Sequence qw(reverse_comp); use vars qw(@ISA); @@ -270,12 +271,16 @@ sub subseq { # # get the dna # - my $dna = $self->SUPER::subseq($start, $end, $strand); + my $dna = $self->SUPER::subseq($start, $end, 1 ); # # mask the dna # $self->_mask_features(\$dna,$repeats,$soft_mask,$not_default_masking_cases); + if( $strand && $strand == -1 ) { + reverse_comp( \$dna ); + } + return $dna; }