[Bioperl-guts-l] bioperl-live/Bio/Graph/IO psi_xml.pm,1.9,1.10

[Brian Osborne]

Update of /home/repository/bioperl/bioperl-live/Bio/Graph/IO
In directory pub.open-bio.org:/tmp/cvs-serv19045/Bio/Graph/IO

Modified Files:
	psi_xml.pm 
Log Message:
Duplicate lines


Index: psi_xml.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graph/IO/psi_xml.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** psi_xml.pm	11 Jan 2006 12:29:32 -0000	1.9
--- psi_xml.pm	11 Jan 2006 15:30:48 -0000	1.10
***************
*** 123,127 ****
  		my $full       =  $org->first_child('names')->first_child('fullName')->text;
  		my ($gen, $sp) = $full =~ /(\S+)\s+(.+)/;
- 		my ($gen,$sp)  = $full =~ /(\S+)\s+(.+)/;
  		my $sp_obj     = Bio::Species->new(-ncbi_taxid     => $taxid,
  													  -classification => [$sp, $gen],
--- 123,126 ----
***************
*** 216,221 ****
                                 $g->{'_id_map'}{$node[1]})],
  					-id    => $edge_id));
! 	my $edge_id = $i->first_child('xref')->first_child('primaryRef')->att('id');
! 		$twig->purge();
  }
  
--- 215,220 ----
                                 $g->{'_id_map'}{$node[1]})],
  					-id    => $edge_id));
! 	$twig->purge();
! 
  }