[Bioperl-guts-l] bioperl-live/Bio/SearchIO/Writer GbrowseGFF.pm, 1.11, 1.12

Heikki Lehvaslaiho heikki at dev.open-bio.org
Wed Jun 7 05:54:55 EDT 2006


Update of /home/repository/bioperl/bioperl-live/Bio/SearchIO/Writer
In directory dev.open-bio.org:/tmp/cvs-serv1174/Bio/SearchIO/Writer

Modified Files:
	GbrowseGFF.pm 
Log Message:
cleaning unnecessary "return undef"s

Index: GbrowseGFF.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO/Writer/GbrowseGFF.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** GbrowseGFF.pm	10 Feb 2006 14:51:47 -0000	1.11
--- GbrowseGFF.pm	7 Jun 2006 09:54:53 -0000	1.12
***************
*** 389,393 ****
  sub significance_filter {
      my ($self,$method,$code) = @_;    
!     return undef unless $method;
      $method = uc($method);
      if( $method ne 'HSP' &&
--- 389,393 ----
  sub significance_filter {
      my ($self,$method,$code) = @_;    
!     return unless $method;
      $method = uc($method);
      if( $method ne 'HSP' &&
***************
*** 395,399 ****
  	$method ne 'RESULT' ) {
  	$self->warn("Unknown method $method");
! 	return undef;
      }
      if( $code )  {
--- 395,399 ----
  	$method ne 'RESULT' ) {
  	$self->warn("Unknown method $method");
! 	return;
      }
      if( $code )  {



More information about the Bioperl-guts-l mailing list