[Bioperl-guts-l] bioperl-live/Bio/SearchIO blastxml.pm,1.46,1.47

[Christopher John Fields]

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

Modified Files:
	blastxml.pm 
Log Message:
blastxml should now return all description data for every (!?!) XML::SAX backend; no need for warnings

Index: blastxml.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO/blastxml.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -d -r1.46 -r1.47
*** blastxml.pm	30 Jan 2007 19:30:20 -0000	1.46
--- blastxml.pm	8 Feb 2007 13:36:10 -0000	1.47
***************
*** 155,174 ****
          Handler => $xmlhandler);
      $self->{'_xmlparser'} = $parserfactory;    
!     my $pclass = $self->saxparser;
!     
!     $self->debug("Parser: $pclass\n");
!     
!     if (($pclass eq 'XML::SAX::PurePerl' ||
!         $pclass eq 'XML::SAX::Expat'    ||
!         $pclass eq 'XML::LibXML::SAX' )  &&
!         $self->verbose > -1) {
!         $self->warn("XML::SAX::PurePerl, XML::SAX::Expat, or ".
!                     "XML::LibXML::SAX set as default XML::SAX parser.\n".
!                     "This works but has a small bug which breaks ".
!                     "with character encoding (Bug 2159). \n".
!                     "We recommend using a different ".
!                     "backend (such as XML::SAX::ExpatXS or XML::LibXML)");
!     }
!     
      $self->{'_result_cache'} = [];
      eval {  require Time::HiRes };	
--- 155,159 ----
          Handler => $xmlhandler);
      $self->{'_xmlparser'} = $parserfactory;    
!     my $pclass = $self->saxparser;    
      $self->{'_result_cache'} = [];
      eval {  require Time::HiRes };