[Bioperl-guts-l] bioperl-live/Bio/Tools/HMMER Results.pm, 1.31, 1.32

Torsten Seemann tseemann at dev.open-bio.org
Tue Sep 26 21:11:10 EDT 2006


Update of /home/repository/bioperl/bioperl-live/Bio/Tools/HMMER
In directory dev.open-bio.org:/tmp/cvs-serv31781/Bio/Tools/HMMER

Modified Files:
	Results.pm 
Log Message:
Replaced /\/\// regexp madness with m{//}


Index: Results.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/HMMER/Results.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** Results.pm	26 Sep 2006 22:03:18 -0000	1.31
--- Results.pm	27 Sep 2006 01:11:08 -0000	1.32
***************
*** 742,746 ****
  	    while(<$file>) {
  		/^Align/ && last;
! 		/^\/\// && last;
  		# this is meant to match
  
--- 742,746 ----
  	    while(<$file>) {
  		/^Align/ && last;
! 		m{^//} && last;
  		# this is meant to match
  
***************
*** 775,779 ****
  		}
  	    }
! 	    if( /^\/\// ) { next; }
  
  	    $_ = <$file>;
--- 775,779 ----
  		}
  	    }
! 	    if( m{^//} ) { next; }
  
  	    $_ = <$file>;
***************
*** 782,786 ****
  
  	    while(1) {
! 		(!defined $_ || /^\/\//) && last;
  
  		# matches:
--- 782,786 ----
  
  	    while(1) {
! 		(!defined $_ || m{^//}) && last;
  
  		# matches:
***************
*** 801,805 ****
  		    }
  		    while(<$file>) {
! 			/^\/\// && last;
  			/^\s*\S+:.*from\s+\d+\s+to\s+\d+/ && last;
  			$unit->add_alignment_line($_);
--- 801,805 ----
  		    }
  		    while(<$file>) {
! 			m{^//} && last;
  			/^\s*\S+:.*from\s+\d+\s+to\s+\d+/ && last;
  			$unit->add_alignment_line($_);



More information about the Bioperl-guts-l mailing list