make _coord_adjust work with negative positions

changed the regex that manipualtes @coords in _coord_adjust so that an optional "-" is now accepted, which makes it possible to feed the function negative postions.
bioperl · Jan 18, 2012 · b17657e · b17657e
1 parent f7661d8
commit b17657e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/SeqUtils.pm b/Bio/SeqUtils.pm
@@ -1267,7 +1267,7 @@ sub _coord_adjust {
         my @coords=($_->start, $_->end);
         my $strand=$_->strand;
 	my $type=$_->location_type;
-        map s/(\d+)/if ($add+$1<1) {'<1'} elsif (defined $length and $add+$1>$length) {">$length"} else {$add+$1}/ge, @coords;
+        map s/(-?\d+)/if ($add+$1<1) {'<1'} elsif (defined $length and $add+$1>$length) {">$length"} else {$add+$1}/ge, @coords;
 
         push @loc, $self->_location_objects_from_coordinate_list(
           [\@coords], $strand, $type