[Bioperl-guts-l] bioperl commit

[Lincoln Stein]

Wed Feb 12 17:14:41 EST 2003
Update of /home/repository/bioperl/bioperl-live/Bio/Graphics
In directory dev:/tmp/cvs-serv2653/Bio/Graphics

Modified Files:
	Panel.pm 
Log Message:
bio::graphics fixes for cases in which the subfeatures do not reach the end of the feature, and the end of the feature is >= the border of the panel
bioperl-live/Bio/Graphics Panel.pm,1.37,1.38
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Panel.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- /tmp/T0dwaynf	2003-02-12 17:14:41.290005318 -0500
+++ /tmp/T1ewaynf	2003-02-12 17:14:41.300008934 -0500
@@ -152,8 +152,7 @@
 
 sub scale {
   my $self = shift;
-#  $self->{scale} ||= ($self->{width}-$self->pad_left-$self->pad_right-1)/($self->length-1);  # wrong!
-  $self->{scale} ||= ($self->{width}-$self->pad_left-$self->pad_right)/($self->length);   # right, but I don't want to fix regression tests!
+  $self->{scale} ||= ($self->{width}-$self->pad_left-$self->pad_right)/($self->length);
 }
 
 sub start { shift->{offset}+1}
@@ -258,6 +257,8 @@
   $glyph_name = $map if defined $map;
   $glyph_name ||= 'generic';
 
+  local $^W = 0;  # uninitialized variable warnings under 5.00503
+
   my $panel_map =
     ref($map) eq 'CODE' ?  sub {
       my $feature = shift;