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

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jun 14 10:16:15 EDT 2007


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

Modified Files:
	OMIMparser.pm 
Log Message:
removed bad "new Bio::Module" syntax, replaced with "Bio::Module->new"

Index: OMIMparser.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Phenotype/OMIM/OMIMparser.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** OMIMparser.pm	26 Sep 2006 22:03:12 -0000	1.23
--- OMIMparser.pm	14 Jun 2007 14:16:12 -0000	1.24
***************
*** 433,437 ****
          $self->{ "_omimtxt_file_name" } = $value;
          if ( $value =~ /\W/ ) {
!             $self->_OMIM_text_file( new Bio::Root::IO->new( -file => $value ) );
          } 
      }
--- 433,437 ----
          $self->{ "_omimtxt_file_name" } = $value;
          if ( $value =~ /\W/ ) {
!             $self->_OMIM_text_file( Bio::Root::IO->new->new( -file => $value ) );
          } 
      }
***************
*** 875,879 ****
      my $line         = "";
      my %genemap_hash = ();
!     my $genemap_file = new Bio::Root::IO->new( -file => $genemap_file_name );
      my @a            = ();
      my %gm           = ();
--- 875,879 ----
      my $line         = "";
      my %genemap_hash = ();
!     my $genemap_file = Bio::Root::IO->new->new( -file => $genemap_file_name );
      my @a            = ();
      my %gm           = ();



More information about the Bioperl-guts-l mailing list