[Bioperl-guts-l] bioperl-live/Bio/Graphics Glyph.pm,1.118,1.119

[Lincoln Stein]

Update of /home/repository/bioperl/bioperl-live/Bio/Graphics
In directory dev.open-bio.org:/tmp/cvs-serv12711/Bio/Graphics

Modified Files:
	Glyph.pm 
Log Message:
test GFF3 file now passes validation tests at http://dev.wormbase.org/db/validate_gff3/validate_gff3_online

Index: Glyph.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm,v
retrieving revision 1.118
retrieving revision 1.119
diff -C2 -d -r1.118 -r1.119
*** Glyph.pm	30 Aug 2006 02:35:45 -0000	1.118
--- Glyph.pm	6 Sep 2006 18:23:51 -0000	1.119
***************
*** 725,729 ****
    my ($left,$top,$partno,$total_parts) = @_;
  
- 
    my $connector = $self->connector;
  
--- 725,728 ----
***************
*** 1171,1175 ****
    my @split = eval { my $id   = $feature->location->seq_id;
  		     my @subs = $feature->location->sub_Location;
! 		     grep {$id eq $_->seq_id} @subs};
  
    return @split if @split;
--- 1170,1175 ----
    my @split = eval { my $id   = $feature->location->seq_id;
  		     my @subs = $feature->location->sub_Location;
! 		     grep {$id eq $_->seq_id} @subs;
! 		   };
  
    return @split if @split;