From ed144ab10a8b65624e9fe70359e2998f347c4249 Mon Sep 17 00:00:00 2001
From: Tony Cox <avc@sanger.ac.uk>
Date: Fri, 14 Apr 2000 16:35:00 +0000
Subject: [PATCH] re-applied lost changed to extend() (sigh)
---
modules/Bio/EnsEMBL/DB/VirtualContig.pm | 25 +++++++++----------------
1 file changed, 9 insertions(+), 16 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DB/VirtualContig.pm b/modules/Bio/EnsEMBL/DB/VirtualContig.pm
index c5732e0a8f..bd12a3413d 100755
--- a/modules/Bio/EnsEMBL/DB/VirtualContig.pm
+++ b/modules/Bio/EnsEMBL/DB/VirtualContig.pm
@@ -168,22 +168,15 @@ sub extend {
if (! defined $left || ! defined $right ){
$self->throw("Must supply a left and right value when extending a VirtualContig");
}
-
-
- my $current_left = $self->_left_size;
- my $current_right = $self->_right_size;
- my $current_ori = $self->_focus_orientation;
- my $current_focuscontig = $self->_focus_contig;
- my $current_focusposition = $self->_focus_position;
-
- print STDERR "Extending raw contig ".$current_focuscontig->id." (ori = $current_ori)\n";
-
- my $nvc = Bio::EnsEMBL::DB::VirtualContig->new( -focuscontig => $current_focuscontig,
- -focusposition => $current_focusposition,
- -ori => $current_ori,
- -left => $current_left - $left,
- -right => $current_right + $right,
- );
+
+ print STDERR "Extending raw contig ".$self->_focus_contig->id." (ori = $self->_focus_orientation)\n";
+
+ my $nvc = Bio::EnsEMBL::DB::VirtualContig->new( -focuscontig => $self->_focus_contig,
+ -focusposition => $self->_focus_position,
+ -ori => $self->_focus_orientation,
+ -left => $self->_left_size - $left,
+ -right => $self->_right_size + $right,
+ );
return $nvc;
}
--
GitLab