Skip to content
Snippets Groups Projects
Commit 74e499ab authored by premanand17's avatar premanand17
Browse files

Updates to fix soft_masking discripancy - ENSCORESW-2545

parent a5780172
No related branches found
No related tags found
No related merge requests found
......@@ -856,7 +856,9 @@ sub spliced_seq {
my $padstr;
if (!defined ($ex->coding_region_start($self))) {
$exon_seq = lc($exon_seq);
} elsif ($ex->coding_region_start($self) > $ex->start()) {
}
if ($ex->coding_region_start($self) > $ex->start()) {
my $forward_length = $ex->coding_region_start($self) - $ex->start();
my $reverse_length = $ex->end() - $ex->coding_region_start($self);
if ($ex->strand == 1) {
......@@ -864,7 +866,9 @@ sub spliced_seq {
} else {
$exon_seq = substr($exon_seq, 0, $reverse_length+1) . lc(substr($exon_seq, $reverse_length+1));
}
} elsif ($ex->coding_region_end($self) < $ex->end()) {
}
if ($ex->coding_region_end($self) < $ex->end()) {
my $forward_length = $ex->coding_region_end($self) - $ex->start();
my $reverse_length = $ex->end() - $ex->coding_region_end($self);
if ($ex->strand == 1) {
......
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