[Bioperl-guts-l] bioperl-live/Bio/Phenotype/OMIM OMIMparser.pm, 1.15, 1.16

[Brian Osborne]

Update of /home/repository/bioperl/bioperl-live/Bio/Phenotype/OMIM
In directory pub.open-bio.org:/tmp/cvs-serv26984/Bio/Phenotype/OMIM

Modified Files:
	OMIMparser.pm 
Log Message:
Bug 1951


Index: OMIMparser.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Phenotype/OMIM/OMIMparser.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** OMIMparser.pm	9 Oct 2005 14:53:16 -0000	1.15
--- OMIMparser.pm	16 Feb 2006 21:58:59 -0000	1.16
***************
*** 546,550 ****
  	my $part;
  	for my $line (split /\n/, $text){
! 	    if($line =~ /^([\w\s]+)\:\s*$/){
  		$part = $1;
  	    } elsif( $line =~ /^\s+$/ ) {
--- 546,550 ----
  	my $part;
  	for my $line (split /\n/, $text){
! 		if ($line =~ /^([\w\s,]+)\:\s*$/) {
  		$part = $1;
  	    } elsif( $line =~ /^\s+$/ ) {