[Bioperl-guts-l] bioperl-live/Bio/LiveSeq/IO BioPerl.pm,1.21,1.22

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


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

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

Index: BioPerl.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/LiveSeq/IO/BioPerl.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** BioPerl.pm	26 Sep 2006 22:03:08 -0000	1.21
--- BioPerl.pm	14 Jun 2007 14:16:12 -0000	1.22
***************
*** 164,171 ****
  	
  	if( $DBEMBLLOADED ) {
! 	    my $embl = new Bio::DB::EMBL;
  	    $seqobj = $embl->get_Seq_by_id($id); # EMBL ID or ACC
  	} else { 
! 	    my $root = new Bio::Root::Root();
  	    $root->warn("Must have HTTP::Request::Common installed, cannot run load without the -filename option specified, see docs for Bio::LiveSeq::IO::BioPerl");
  	    return;
--- 164,171 ----
  	
  	if( $DBEMBLLOADED ) {
! 	    my $embl = Bio::DB::EMBL->new();
  	    $seqobj = $embl->get_Seq_by_id($id); # EMBL ID or ACC
  	} else { 
! 	    my $root = Bio::Root::Root->new();
  	    $root->warn("Must have HTTP::Request::Common installed, cannot run load without the -filename option specified, see docs for Bio::LiveSeq::IO::BioPerl");
  	    return;



More information about the Bioperl-guts-l mailing list