[Bioperl-guts-l] bioperl commit

[Aaron J Mackey]

amackey
Wed Oct 13 14:22:32 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Tools
In directory pub.open-bio.org:/tmp/cvs-serv6711/Bio/SeqFeature/Tools

Modified Files:
	IDHandler.pm 
Log Message:
Steffen Grossman's patch; test case upcoming

bioperl-live/Bio/SeqFeature/Tools IDHandler.pm,1.3,1.4
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Tools/IDHandler.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Tools/IDHandler.pm	2004/07/26 17:59:22	1.3
+++ /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Tools/IDHandler.pm	2004/10/13 18:22:32	1.4
@@ -192,7 +192,8 @@
      grep {
          my @parents = $_->get_tagset_values('Parent');
          foreach my $parent (@parents) {
-             $parent->add_SeqFeature($_);
+             $sf_by_ID{$parent}->add_SeqFeature($_)
+		 if exists $sf_by_ID{$parent};
          }
          !@parents;
      } @sfs;