From bc2e537b1efa156204aa2721668acdd890fbbf9d Mon Sep 17 00:00:00 2001 From: "Francisco J. Ossandon" Date: Mon, 15 Apr 2013 01:36:09 -0300 Subject: [PATCH] Split/to_FTstring don't need to reverse sublocations order anymore --- Bio/Location/Split.pm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/Bio/Location/Split.pm b/Bio/Location/Split.pm index 526e702df..c6ef34967 100644 --- a/Bio/Location/Split.pm +++ b/Bio/Location/Split.pm @@ -669,19 +669,13 @@ sub to_FTstring { my @strs; my $strand = $self->strand() || 0; my $stype = lc($self->splittype()); - my $guide = $self->guide_strand(); if( $strand < 0 ) { $self->flip_strand; # this will recursively set the strand # to +1 for all the sub locations } - # If the split type is join, the order is important; - # otherwise must be 5'->3' regardless - - my @locs = ($stype eq 'join' && (!$guide && $strand == -1)) ? - reverse $self->sub_Location() : $self->sub_Location() ; - - foreach my $loc ( @locs ) { + + foreach my $loc ( $self->sub_Location(0) ) { $loc->verbose($self->verbose); my $str = $loc->to_FTstring(); # we only append the remote seq_id if it hasn't been done already -- 2.11.4.GIT